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Prólogo 


En este libro encontrará más de 100 programas, redactados en Basic Sinclair, escritos y 
presentados cada vez en dos versiones: una para el ZX 81 1 K octeto (utilizable casi siempre 
sobre el ZX 80 New Rom, sin modificación) y la otra para el ZX Spectrum (16 K en la versión 
de base). 

El hecho de presentar solamente programas muy cortos (menos de 1 K octeto en todos los 
programas de la versión ZX 81) se debe a dos hechos: por una parte, el deseo de guiar al lector 
hacia un aprendizaje progresivo del lenguaje, utilizando para ello juegos muy cortos, pero, sin 
embargo, bastante completos y logrados; por otra parte, la intención de no caer en la clásica 
trampa de los programas demasiado largos, muy difíciles de introducir en la máquina sin 
error y que resultan más cómodos de tener en cassettes pregrabados que, por otro lado, se 
encuentran cada vez más corrientemente en el comercio. 

Cada nivel de programa (hay 5) está precedido de un corto estudio de las instrucciones 
Basic que se emplean en los juegos que siguen. Se exponen las diferencias entre el ZX 81 y el 
ZX Spectrum, así como las diferencias con los otros Basic. 

Además, los programas que se ofrecen están “abiertos”; es decir, han sido concebidos, 
dentro de lo que cabe, para ser fácilmente utilizados y modificados si el tamaño de la memoria 
disponible es superior: por ejemplo, un juego como Othello, que sólo puede practicarse en un 
tablero 6 X 6 en la versión de 1 K, podrá practicarse sin ninguna modificación en un tablero 
de8 x 8010 x 10 en una versión de 16 K o más (todos los juegos pueden utilizarse en 16 K 
sin modificación). 

Al final de cada programa, se facilitan indicaciones para sugerir posibles mejoras o 
modificaciones, para hacer el juego más atractivo, más logrado o más completo. 
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Organización de la obra 


Los juegos están clasificados por dificultad creciente, siguiendo $ niveles: 


- El nivel 1 permite estudiar las instrucciones elementales del lenguaje Basic: LET, PRINT, 
INPUT, IF — THEN —, FOR ..., NEXT, GOTO, GOSUB. 


- En el nivel 2, se utilizarán las instrucciones de confección y manejo de los elementos de 
una tabla: DIM, R(D. 


- En el nivel 3, se recurre a la potente instrucción de tratamiento de series de caracteres: 
RS TO  ), ya las instrucciones gráficas: PLOT, UNPLOT. 


— En el nivel 4, se encuentran las instrucciones propias de los juegos interactivos: INKEYS$ y 
SCROLL. 


— En el nivel 5, por último, se descubren las instrucciones fronterizas del Basic, que permiten 
la manipulación directa en la memoria del aparato: PEEK y POKE. 


Cada juego se presenta de una manera muy sistemática, mediante una breve descripción, 
seguida del estudio detallado de cada una de las líneas importantes del programa. 
A continuación, se dan las indicaciones necesarias para el buen funcionamiento del juego, 
así como algunos elementos para posibles extensiones o mejoras del juego propuesto. 

Los programas ZX 81 y ZX Spectrum se presentan uno al lado del otro, y la numeración 
de las líneas es, dentro de lo que cabe, la misma en las dos versiones. El interés de esta 
fórmula es múltiple: debería permitir a los antiguos usuarios del ZX 81, que deseen pasarse 
al ZX Spectrum, descubrir rápidamente las semejanzas y diferencias (mínimas) entre los dos 
aparatos; esto permitirá, por otro lado, aclarar cualquier duda de interpretación en la 
lectura de un programa (por ejemplo, impresión un poco borrosa) y entender mejor el 
significado de los códigos que se emplean en la versión ZX 81 para disminuir la ocupación de 
la memoria. 

Para aumentar la facilidad de transposición de los programas del ZX 81 al ZX Spectrum, 
este último se ha utilizado sistemáticamente en posición C A P S L O C K (bloqueo 
de las teclas en posición de mayúscula); de esta manera, se suprimen voluntariamente las 
minúsculas que existen en el Spectrum; será fácil modificar los programas para utilizarlas. 

Por otra parte, existen algunas diferencias notables entre el Basic del ZX 81 y el del 
ZX Spectrum, que son generalmente fáciles de evitar; la lectura comparada de los progra- 


mas permitirá encontrar fácilmente los diversos métodos que existen para poner remedio a 
este problema. 


DIFERENCIAS MÁS NOTABLES 


- Existen dos modalidades, FAST y SLOW, en el ZX 81, y ninguna en el Spectrum. No hay 
ningún inconveniente práctico, a no ser la necesidad de añadir en algunos programas una 
contemporización para disminuir la velocidad del Spectrum, que funciona según la 
modalidad SLOW del 81, pero a la velocidad de la modalidad FAST. 


u 
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- Existe una instrucción SCROLL en el ZX 81. Se soluciona en el Spectrum anulando el 
SCROLL ?, que aparece automáticamente si la pantalla está llena y se provoca la 
impresión de un carácter de retorno del carro (CHR$(13)) en la línea 21: se escribirá 
PRINT AT 29,9:POKE 23692,9:.PRINT CHRS(13). 


— La posibilidad de escribir varias instrucciones por línea en el ZX Spectrum, separadas por 
2 puntos. 


- La posibilidad de imprimir un texto con la ayuda de una instrucción INPUT y de esperar 
algunas variables en el Spectrum. 


— La posibilidad de leer directamente el carácter que se encuentra en la posición X,Y de la 
pantalla en el Spectrum; la instrucción 


SCREENS$(X,Y) sustituirá así las dos líneas: 
PRINT AT X,Y; 
LET C$ = CHR$ PEEK(PEEK 16398 + 256 x PEEK 16399) 


del ZX 81. 
(Para el color, se utilizará la instrucción ATTR, que es de un manejo más delicado.) 


- Cambio de los códigos de los distintos caracteres: el ZX Spectrum utiliza el código ASCII, 
lo que no sucedía en el ZX 81. 


- Algunos caracteres gráficos del ZX 81 no están ya disponibles en el Spectrum (pueden 
reemplazarse por el color). 


- Las instrucciones READ, RESTORE y DATA, que no existían en el ZX 81, están presentes 
en el ZX Spectrum (en esta obra se utilizan muy raramente, con el fin de respetar la 
analogía con el ZX 81). 


= La instrucción PLOT del ZX Spectrum permite direccionar 256 X 176 puntos, en lugar de 
los 64 x 44 del ZX 81, lo que permite un gráfico de alta resolución, pero complica la 
traducción de algunos programas. 


- La instrucción UNPLOT se reemplaza en el Spectrum por PLOT OVER1. 


Existen otras muchas diferencias, pero prácticamente no tendremos la ocasión de 
encontrarlas en el curso de este estudio. Parece importante precisar aquí que las analogías 
son mucho más numerosas que las diferencias y que los programas escritos para el ZX 81 
serán, salvo casos muy particulares, fácilmente adaptables al ZX Spectrum; en cambio, la 
velocidad de carga y de protección de los programas en cassette no es la misma, y los 
programas cassette del ZX 81 no se utilizarán directamente en el Spectrum. 


Se han utilizado algunas técnicas para limitar la ocupación de la memoria, sobre todo en 
la versión ZX 81. Cuando estas técnicas recurren a las propiedades particulares del Basic 
Sinclair (a menudo es el caso), se utilizan directamente en el ZX Spectrum, y se descubrirán 
con interés estudiando los programas propuestos (utilización de funciones lógicas para 
suprimir comprobaciones, utilización del GOTO y del GOSUB calculados, etc.). En 
cambio, en algunas ocasiones, el procedimiento utilizado, si economiza memoria, hace que 
el programa sea más difícil de interpretar: en este caso, la codificación no se ha retenido en 
la versión Spectrum, lo que permitirá comprender el sentido de los símbolos utilizados 
dando una simple ojeada en la versión del ZX Spectrum. Así, en el ZX 81, U se sustituye por 
NOT PI, 1 por SGN PI y 3 por INT PI; esta técnica, aunque también es rentable en el 
Spectrum, no se ha considerado por las razones que se indican más arriba. Asimismo, una 
gran cantidad de números se sustituyen por los códigos de caracteres correspondientes en el 
ZX 81. Así, GOTO 208 se escribe frecuentemente GOTO CODE “COS”, PRINT AT 16, 
15 se escribirá PRINT AT CODE*(”.CODE“?”, etc. 
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NIVEL 1 


Nombre del programa 


Tema y particularidades 


Drs LN. 


El número misterioso 
Cubo 

Caliente, frío 

Las cerillas 


Cerillas para varios 


Calendario perpetuo 
Ruleta 
Batalla naval 


Golf 

Solfeo 

El juego del 21 
Par-impar 


Simón 

Adivinar una cifra 

El juego de Wytthof 

421 

Rebotes 

Jackpot 

El juego del haba 

Juego de la oca aleatorio 


Juego de deducción para un jugador a varios niveles. 
Juego de dibujo: perspectiva sobre una pantalla. 
Lógico y de azar para un jugador; varios niveles. 
Juego de reflexión contra el ZX. 


Juego de reflexión y de estrategia para varios 
jugadores. 


Confección de un calendario según mes y año. 
Juego de azar para varios jugadores; simulación. 


Encontrar un solo barco, con algunas particularida- 
des. 


Un recorrido de 18 hoyos, para un solo jugador. 
Aprender solfeo con la ayuda del ZX. 
Juego de azar contra el ZX. 


Un juego de casino en tres tiempos (uno o varios 
jugadores). 


Repetir una secuencia de cifras cada vez más larga. 
Juego de casino para uno o varios jugadores. 

Un juego de reflexión muy simple para dos jugadores. 
Una simulación simplificada para varios jugadores. 
Un juego de destreza muy visual para un jugador. 
Juego de azar muy clásico (un jugador). 

Un juego de reflexión para dos jugadores. 

Un viejo juego al estilo ZX para dos jugadores. 
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Instrucciones elementales 


Aquí sólo se consideran las instrucciones fundamentales o las instrucciones de 
programación; otras muchas sentencias o funciones particulares se utilizarán si se presenta el 
caso; por ejemplo: 


—- CLS para borrar la pantalla, 

- PAUSE para parar momentáneamente el desarrollo del programa, 
- RND para obtener un número aleatorio entre P y 1, 

- INT para tomar la parte completa del resultado, 


etcétera. 


Las instrucciones fundamentales de la programación, que se utilizan desde el nivel I y 
que se presentan prácticamente en todos los programas, son: 


LET; PRINT; INPUT; GOTO; 1F — THEN — ;FOR ... NEXT; GOSUB ... 
(RETURN); 


solamente siete instrucciones de base, que van a examinarse a continuación más 
detalladamente. 


LA INSTRUCCIÓN LET O INSTRUCCIÓN DE ASIGNACIÓN 


Es la instrucción por excelencia de los lenguajes de programación evolucionados, ya que 
su papel principal es permitir al programador una gestión transparente de la memoria; esto 
significa, en la práctica, que para almacenar una cantidad en la memoria, por ejemplo 12, no 
es necesario saber en qué lugar de la memoria va a depositarse; es suficiente con asignarle un 
nombre autorizado, y por este nombre la cantidad será más tarde encontrada y manejada. 


- Si la cantidad es numérica, el nombre será una simple letra del alfabeto, o un conjunto de 
cifras o letras que empiecen obligatoriamente por una letra. 


- Si la cantidad es alfanumérica, se aplica la misma regla para el nombre que, sin embargo, 
deberá ir seguido del símbolo $, y la variable se escribirá entre comillas. 


Ejemplo: LET Al = 12; la variable numérica Al toma el valor 12. 
LET NOMS = “RENOIR”; la variable numérica NOM$ toma el valor 
RENOIR. 


En la mayoría de los Basic, la instrucción LET puede omitirse, lo que facilita la escritura: 
A = 12; B$ = “TOTO”, etc. 

Una vez realizada la asignación, el microordenador sabrá cada vez que le hablen de Al 
que se trata del número 12 y si se le habla de NOMS, del nombre RENOIR, etc. 
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LA INSTRUCCIÓN PRINT O INSTRUCCIÓN DE SALIDA (PANTALLA) 


Es una instrucción de diólogo que permite a la máquina visualizar en la pantaila un texto, 
el resultado de un cálculo o una variable; es el único medio que posee el microordenador 
para dar a conocer sus resultados. Así, PRINT Al provoca la visualización de 12 (si 
anteriormente se ha efectuado LET A1 = 12) y PRINT NOMS la visualización de RENOIR 
(si se ha efectuado LET NOM$ = “RENOIR”); si se utiliza después de borrar la pantalla 
(CLS), PRINT provoca la visualización de la 1.* línea de arriba a la izquierda. 

Se utilizan diversos parámetros para indicar al ZX dónde debe visualizar sus resultados o 
sus símbolos (y comprendidos los dibujos). 


- PRINT TAB N provoca una visualización en la línea de impresión actual, que comienza en 
la columna N, a partir de la izquierda (Y < N < 31). 


- PRINT AT X, Y provoca una visualización que empieza en la línea X (a partir de arriba, 
con Y < X < 19) y en la columna Y (a partir de la izquierda, con Y < Y < 31). 


- Un ; (punto y coma) al final de PRINT permite encadenar otra impresión sin repetir la 
instrucción PRINT o indicar que la próxima impresión será, si no se indica lo contrario, 
realizada exactamente a continuación de la precedente. 


- La , (coma) provoca una tabulación predefinida automática. 


LA INSTRUCCIÓN INPUT O INSTRUCCIÓN DE ENTRADA (TECLADO) 


Esta instrucción permitirá introducir y asignar directamente en la variable que se indica por 
el INPUT un número o un texto, realizado en modalidad conversacional, a medida de las 
necesidades; así, cuando el ZX encuentra una instrucción INPUT, se para y devuelve el 
control. Puede entonces introducirse una información apropiada y señalar el fin de esta 
entrada con la ayuda de la tecla NEWLINE, que devolverá el control al ZX. 


Por ejemplo, si en el programa el ZX encuentra INPUT B, se para, y deberá teclearse un 
número B cualquiera seguido de NEWLINE (si se teclea un carácter distinto de una cifra o 
un punto decimal, se obtendrá un mensaje de error: es conveniente prever la visualización 
de un texto antes de la parada, indicando lo que tiene que introducirse). 

En otros aparatos, así como en el Spectrum, existen otros medios de introducir 
informaciones (LET, DATA, etc.), pero éstas no tienen la flexibilidad del INPUT, ya que 
entonces la información queda plasmada en el programa y difícilmente puede modificarse. 

En el ZX 81, la instrucción INPUT está muy simplificada: no puede mencionarse por un 
texto el tipo de la información, ni introducir varias informaciones, unas después de otras. En 
el ZX Spectrum la instrucción INPUT es parecida a la INPUT de los otros BASIC, que 
permiten visualizar un texto e introducir sucesivamente diversas variables, en caso 
necesario. 


LA INSTRUCCIÓN GOTO 
O LA INSTRUCCIÓN DE BIFURCACIÓN INCONDICIONAL 


Una de las particularidades del lenguaje Basic, que lo hace fácilmente accesible, es que 
cada línea del programa debe ir precedida de un número; estas líneas se ejecutan a 
continuación en secuencias por el microordenador, en numeración creciente. Por varias 
razones, puede ser necesario, durante la ejecución de un programa, no seguir este orden 
secuencial de forma muy rígida; entonces se utiliza la instrucción GOTO, que pemite desviar la 
ejecución del programa de su curso normal, con la posibilidad, sin embargo, de volver a 
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tomarlo a continuación por otro GOTO. El Basic, en el caso del Basic Sinclair, por lo 
general sólo permite las bifurcaciones a un número de línea conocido (GOTO 28, por 
ejemplo, o GOTO 296, etc.). 

Una de las particularidades más destacables del Basic Sinclair es que también permite el 
GOTO calculado, lo que significa que, detrás de la instrucción GOTO, puede ponerse una 
variable o también una expresión aritmética o lógica de cálculo; lo que hace de ella 
una instrucción de bifurcación condicional muy potente, parecida al CASE OF del Pascal; 
puede escribirse, 


Por ejemplo: 


GOTO(198 AND 1 = 1) + (289 AND 1 = 2) + (390 AND 1 = 3) o GOTO 1 x 190, 
que envía a las líneas 100, 208 o 306, según el valor de 1. 


LA INSTRUCCIÓN IF — THEN—, 
O INSTRUCCIÓN DE COMPROBACIÓN 


La instrucción IF — THEN — , muy potente en el Basic Sinclair, puede utilizarse de 
distintas maneras: 


- En rotura de secuencia condicional, bajo la forma IF condición = verdadera 
THEN GOTO aan número de línea. Es el uso más corriente de esta comprobación, 
que de todas formas podrá mejorarse por el hecho de que la condición puede ser una 
expresión aritmética o lógica compleja, evaluada lógicamente y que puede ser calculada 
por el mismo GOTO. 


- También podrá utilizarse la comprobación bajo la forma: IF [_condición | THEN 
instrucción y la instrucción siguiente a THEN puede ser una asignación LET, una 
impresión PRINT, una entrada INPUT o también otra comprobación IF— THEN — ; 
puede igualmente escribirse: 


Por ejemplo: IF A THEN IF B THEN PRINT A + B. 


LA INSTRUCCIÓN FOR ... NEXT, O LA INSTRUCCIÓN DE BUCLES 


A menudo, en programación querrá ejecutarse un número entero de veces una cierta se- 
rie de instrucciones (por ejemplo, hacer avanzar un móvil desde la casilla $ hasta la casilla 28, 
etcétera.). Más que utilizar una comprobación y una bifurcación, es preferible utilizar un 
bucle; la variable de bucle toma valores enteros o decimales y el paso de esta variable 
(cantidad en que aumenta o disminuye a cada paso) puede también tomar valores enteros o 
decimales. 


Así, si se escribe: 


FOR 1= Q TO 29 STEP 2 
+ | Instrucciones 
NEXT 1 


Las instrucciones que contiene el bucle se ejecutarán por 1 =P, por [ = 2 y hasta que 
1 = 20, es decir 11 veces. La variable I puede utilizarse para realizar un cálculo en el bucle, 
pero no deberá modificarse dentro de él. Puede salir del bucle antes de que I = 24 mediante 
una comprobación sobre una cantidad cualquiera. 


Si no se ha precisado el paso del bucle (STEP), se tomará automáticamente el valor 1. 
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El Basic del ZX permite colocar un número indefinido de bucles (limitado por la 
memoria disponible). 


LA INSTRUCCIÓN GOSUB 
O INSTRUCCIÓN DE LLAMADA A SUBPROGRAMAS 


Cuando la misma serie de instrucciones tenga que ejecutarse varias veces y llamarse 
desde varios sitios del programa, más que escribirla varias veces se intentará redactarla una 
sola vez y se la situará fuera del programa propiamente dicho (por ejemplo, se le dará un 
número de línea de inicio superior al número de la última línea del programa); 
independientemente de las dificultades que puedan encontrarse a nivel de los nombres de las 
variables, cuando quiera utilizarse esta secuencia, bastará con llamarla con la instrucción 
GOSUB número de línea. El programa “efectuará una bifurcación” a la parte del programa 
llamado, aunque no podrá volver y seguir su desarrollo normal, a menos que encuentren en 
dicho programa una instrucción RETURN, o instrucción de retorno. 


A continuación, se especifica el esquema teórico de su funcionamiento. 


Programa principal 
10 
2% Salida 1.000 ... 


; ¿A 010 
110 GOSUB 1 000 


0 1 200 RETURN 
120 Retorno después 110 


2 
! 
i 
i 
3 


Salida 1010 
230 GOSUB 1000 
HT E 


1200 RETURN 
! Retorno después 230 


Fin del programa 
principal 
1 000 

1 


El subprograma sólo se 

! escribe una vez, pero se 
1200 RETURN puede llamar tantas veces 
como se quiera. 


Subprograma 1 
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Un subprograma podrá eventualmente llamar a otro subprograma, y así sucesivamente, 
sin otra limitación, en el Basic Sinclair, que el tamaño de la memoria. 

Es importante precisar que, en el Basic Sinclair, al igual que en el GOTO, el GOSUB 
también puede calcularse, lo que permitirá una gran concisión y flexibilidad de ta 
programación. 

Por ejemplo: puede escribirse GOSUB A x 1009, y si A=1, se ejecutará el 
subprograma 1 008; si A = 2, el programa 2 009, etc. 

Los Basic corrientes realizan esto mediante la instrucción ON A GOSUB 1 900, 2 609, 
——-, que no tiene, ni mucho menos, la misma flexibilidad. 
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número misterioso 


Modalidad: FAST o SLOW. 

Dificultad de programación: fácil. 

Categoría del juego: juego de deducción para un solo jugador. 
Dificultad del juego: fácil. 


Se pide al ordenador que confeccione un número de n cifras 
(n deberá estar comprendido entre 1 y 7). 

A continuación se intenta descubrirlo, con el mínimo de intentos 
posibles, recibiendo solamente la información MÁS GRANDE o 
MÁS PEQUEÑO. 


La línea 49 permite confeccionar el número que ha de adivinarse, 
Las entradas se realizan por las líneas 69 a 9D. 

La línea 104 comprueba si el resultado es exacto. 

La línea 110 señala un intento demasiado pequeño y la línea 129 un 
intento demasiado grande. 

El contador de intentos está en la línea 130. 

Las líneas 298 a 240 se ocupan de la visualización del resultado y de 
la gestión de la partida siguiente. 


Se pone en marcha el programa con RUN. 

Se obtiene una primera visualización ¿NÚMERO DE CIFRAS?, a la 
que se responde con un número entero entre 1 y 7, seguido de 
NEWLINE. 

Se obtiene entonces la visualización de INTENTO N.” 1, seguido de 
la pregunta SU NÚMERO. 

Se introduce un número y se pulsa NEWLINE. 

Se obtiene entonces una respuesta DEMASIADO PEQUEÑO o 
DEMASIADO GRANDE, o si se ha descubierto el número, una 
visualización HA ENCONTRADO ... EN ... INTENTOS. Si el 
resultado no es exacto, se vuelve a INTENTO N.*2 y SU NÚMERO, 
Al final de la partida, se obtiene la pregunta OTRA PARTIDA ¿(So 
N)?; se responde S para jugar otra partida (seguido de NEWLINE). 
Puede pararse en cualquier momento introduciendo una letra en 
respuesta a la pregunta SU NÚMERO. 


POSIBLES EXTENSIONES: El jugador podrá también adivinar otra cosa que no sea una 


cifra (por ejemplo, una palabra, utilizando el orden alfabético o 
incluso otra cosa). 
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EL NÚMERO MISTERIOSO 


PROGRAMA ZX 81 


Ss CLS 

10 PRINT AT 3,1;"NUMERO DE CIF 
28 INPUT_ZN 

25 TF N>7 THEN RUN 

30 PRINT ON 

40 LET X2INT (RND+10+4N+ 15 

50 LET J=1 

60 PRINT AT 6,1; “INTENTO NC 


79 PRINT AT 8,1," 
EUA 


SU NUMERO 


"THEN SO TO 208 

119 IF Mcx_TMEN PRINT AT 29,1; 
DEMASIADO. PEQUENO” 

129 _1F M3x TMEN PRINT AT 18,1;” 
DEMASTADO GRANDE” 


130 LET J=J41 

149 PAUSE 120 

150 PRINT AT 6,12:“ 

160 PRINT AT 10,1 

179 GO TO 60 

200 CL3 

210 PRINT AT 8,1, ”"HA ENEENTRODO: 
Mo EN ",J;" INTENTO 

380 PRINT AT 12,15" "OTRA PARTIDA 
230" INPUT RS 

240 TF R$="5" THEN RUN 


NUMERO DE CIFRAS :4 


INTENTO NO 4 
SU NUMERO :608 
DEMASIADO PEQUENO 


PROGRAMA ZX SPECTRUM 


5 cs 
19 PRINT AT 3,1; NUMERO DE CIF 
RAS o 
20 INPUT_ZN 
25 IF N>7 THEN RUN 
38 PRINT ON 
48 LET X=INT (RNDA10*N+1 
58 LET J=1 
69 PRINT AT 6,1; "INTENTO Ma 
y 
70 PRINT AT 6,1;“SU NUMERO 
82 INPUT M 
98 PRINT M 
108 IF M=x THEN GO TO 289 
110_IF_M<X THEN PRINT PAPER 2. 
INK_S;AT 10,1; "DEMASIADO PEQUEÑO 
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BEEP 1.3, -10 

128_1F M>X THEN _PRINT PAPER 5: 

INK_2;AT 10,1; “DEMASIADO GRANDE" 
BEEP 1.3,10 

LET JaJra 

PAUSE 120 

PRINT AT 6,14; 


PRINT AT 18,1; 
S0_TO 60 


CS 

SRZNT.AT 8. 1: HR ENCONTRADO 
“ INTENTOS” 

220 PaiNr Plásm a) INDERSE 15 1 

me ¿AT 12,1; "OTRA PARTIDA (5 O 

230 INPUT RS 

240 IF Ry="S" 


THEN RUN 


NUMERO DE CIFRAS :3 


INTENTO NO 2 
S5U NUMERO :50 
DEMASIADO PEGUENO 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Cubo 


Modalidad: SLOW o FAST. 
Dificultad de programación: ninguna. 
Categoría del juego: dibujo. 
Dificultad del juego: ninguna. 


El programa propuesto se limita a realizar, con la ayuda de 
instrucciones PRINT, una vista de un cubo en perspectiva caballera. 


Podría, por ejemplo, incorporarse a un juego basado en la capacidad 
de reconocimiento de las formas geométricas elementales. 


El dibujo del cubo se realiza por la impresión de puntos, utilizando 
dos bucles: el bucle 1 (19-59) y el bucle 1 (69-90). 

El nombre del objeto representado se visualiza en la línea 100 (aquí: 
CUBO). 

La línea 119 es prácticamente inútil, ya que el programa se para 
cuando no hay más instrucciones para ejecutar. 


Es suficiente con poner en marcha la ejecución con RUN y mirarla. 
Puede pulsarse cualquier tecla para salir del programa. 


POSIBLES EXTENSIONES: La instrucción PLOT permitirá obtener un trazado más 


preciso, 

Puede imaginarse un juego utilizando paralelepípedos rectángulos de 
distintos tamaños, por ejemplo, con la visualización de 3 lados, y 
habría que encontrar su volumen, etc. 
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CUBO 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
5 LET L=? El 
7 LET Oz=NOT PI 7 
18 FOR I=0 TO 9 10 FOR I=0 TO Y 
20 PRINT AT O,Lel;“ "¿AT L,15" 29 PRINT AT OsL+I "o": AT L.I5* 
AGAT 18, L+1 0.0 AT 17,1: AS FA E OS 
38 PRINT AT L+1,0;".*.TAB 10; 30 PRINF AT L+1,0;%, "¡ATL 1,1 
eN ar. 
PRINT AT ILL GC O TAB 177000 48 PRINT AT I,L¿“.“ ¡AT 1,1 
NEXT T " 
FOR I=0 TO L SQ NEXT 1 
PRINT AT L-1,1;".":TAB ¿0+1 68 FOR I=0 TO L 
78 PRINT AT L-1I,1;” ¿BAT OL-1,1 
PRINT AT 17-I,I;" ¿TAB 104 OT. 
E se 6 ¿AT 1?-1 
NEXT_1 1941; 
PRINT AT 21,0; "CUBO" 39 NEXT 1 
PAUSE 454 198 PRINT AT 21,0;"CUBO” 


118 PAUSE 4E4 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Caliente, frío 


Modalidad: FAST. 

Dificultad de programación: mediana. 
Categoría del juego: solitario. 
Dificultad del juego: mediana. 


Es uno de los juegos más antiguos del mundo que aún se practica; sin 
embargo, esta vez es el ordenador el que hace de pareja: el 
ordenador va a esconder un objeto en un determinado sitio de una 
reja, cuyas dimensiones escoge uno mismo. Para encontrarlo, sólo 
dará algunas indicaciones bajo la forma de CALIENTE o FRÍO, etc. 
Hay que descubrir el objeto escondido con el mínimo de intentos 
posibles (el resultado se visualizará al finai de la partida). 


Las líneas 7 y 8 definen la posición del objeto. 

La línea 110 calcula la distancia, en relación con dos coordenadas que 
se han introducido en las líneas 70 y 90. 

La línea 120 comprueba si se ha ganado. 

Las líneas 140 y 159 normalizan la distancia (que debe tener un 
sentido, cualesquiera que sean las dimensiones de la reja inicial). 
La línea 160 efectúa la salida, si existe, hacia uno de los programas de 
visualización, 


Se pone en marcha el programa con la orden RUN; después se 
introduce el tamaño de la reja (cuadrada) y se pulsa NEWLINE. 
A partir de la siguiente visualización (DAR X), se introduce la 
supuesta coordenada X, seguida de NEWLINE. 

Se obtiene como respuesta un texto que es variable según se esté más 
o menos lejos del objeto que se busca (esto va desde COMPLETA- 
MENTE HELADO a QUEMANDO). Cuando se encuentra, se 
obtiene la visualización del número de intentos realizados. 

Para salir dei programa antes del final de la partida, basta con dar 
una respuesta alfanumérica a una de las preguntas DAR... (teclear 
A y NEWLINE, por ejemplo). 


POSIBLES EXTENSIONES: Si se dispone del color, será interesante encontrar una forma 


más visual de simbolizar la distancia, por ejemplo, un pavimento de 
baldosas que vayan del rojo al azul, en los lugares que se prueban. 


También puede realizarse en un espacio de tres dimensiones, 
esconder varios objetos, etc. 
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CALIENTE, FRÍO 


PROGRAMA ZX 81 


LET F=7 

LET G=11 

LET S3=NOT PI 
BRINT “TAMANO DE LA REJA *; 
INPUT D 
PRINT D 
LET X=INT 
LET_Y=INT 
11 PAUSE 120 
15 CLS 

20 PRINT AT INT PI, 


79" INPUT A 
80 PRINT A¡AT 5,SGN FZ;" 


98 INPUT B 
108 PRINT 8 
105 LET S=5+50N PI 


(RNDRD+1: 
(RNDED+ Li 


DIANA 


SGN PI; DAR 


DAR Y 


119 LET T=ABS (X-A)+AB5 (1-5) 
128 IF NOT T THEN G0 TO 6000 
139 PRINT AT F,SGN PI; “ESTR 
140 LET N=INT (SOR_D).T+1 
150 IF N>5 THEN LET NS 
169 IF T<=(SOR D)+2 TMEN 60 TO 
N41000 
179 PRINT AT F,G; "COMPLETAMENTE 
HELADO" 

88 60 TO 

1000 PRINT AT F,G;“CASI TEMPLADO 
1910 G0 TO G 

2000 PRINT AT FG; "TEMPLADO" 

2010 GO TO 
3000 PRINT AT F,G; "CALIENTE 
3010 60 TO 
4088 PRINT AT ",G; "MUY CALIENTE" 
4810 GO TO 
5008 PRINT AT F,0; “QUEMANDO” 
5010 G0 TO G 
6088 CLs 
6010 FRINT "ENCONTRADO EN * 
INTENTOS" 

DAR x 3 

DAR Y 3 

ESTA TEMPLADO 


PROGRAMA ZX SPECTRUM 


$=0 
PRINT “TAMANO DE LA 
INPUT D 
PRINT D 
LET x=INT 
LET Y=INT 
PAUSE 


REYA 5; 


(RNDAD+11 
URND+D+10 


DAR y 
“DAR 


(A) +ABS 
JF NOT T TMEN GO TO 
PRINT AT Fr1; “ESTA * 
LET N=INT (SÓR D)/T+1 


IF ON>5 THEN LET N=5 
IF T<x(50R D)+2 THEN 00 TO 
N33903, 


PRINT PAPER 1; BRIGHT 1;m9T 
GO mPLEDAMENTE HELADO" 


To G 
PRINT PAPER S;AT F,G;"CASI 
3 
INT PAPER 4;AT F,G;"TEMPL 
3 
PRINT PAPER S;AT P.G;"CALIE 


s 
PRINT PAPER 3; BRIGHT 1;AT 


FG; eje ATENTE, 
16l 
seda 


yd 
() SRINT 


60 TÍ 
EEE Paren 2;¡AT F,G, "QUEMA 


o 
o erp 001,1: BEEP 
0.1,1: BEEP 0.1,1: Bl 
“ENCONTRADO EN ",S;*" 


TEMPLADO 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Las cerillas 


Modalidad: FAST o SLOW. 
Dificultad de programación: fácil. 
Categoría del juego: mediana. 
Dificultad del juego: mediana. 


AL principio de la partida, el jugador deberá escoger una cierta 
cantidad de cerillas y decidir la toma máxima autorizada. Después se 
decide quién empieza la partida, si el jugador o el ZX. 

Cada cual coge por turno tantas cerillas como quiera, dentro del 
límite del número máximo autorizado. El que coge la última cerilla se 
considera el perdedor. 


El juego del jugador empieza en la línea 110. 

El del ZX empieza en la línea 209. 

La línea 139 controla la validez de la jugada del jugador. 

La línea 140 administra el cambio de jugador. 

La jugada del ZX se calcula en un bucle no formal, de la línea 219 a 
la línea 249. 

El resultado se visualiza en la línea 1920. 

Si la partida ha terminado, la línea 1940 lo detecta y bifurca a la línea 
2000 para el mensaje final. 


Empieza la ejecución con RUN, y ante la visualización del mensaje 
TOTAL se introduce el número de cerillas, seguido de NEWLINE. 
Después se introduce la toma máxima autorizada, seguida de 
NEWLINE, Si el jugador desea empezar, teclea a continuación 0; si 
no, teclea 1 y a continuación NEWLINE. 

Después de cada jugada, se visualiza el número de cerillas que 
quedan, así como el ZX SU TURNO cuando le toca coger al 
jugador. 

El que toma la última cerilla pierde. 


POSIBLES EXTENSIONES: Podrá considerarse una visualización gráfica en color más 


espectacular, dejar al azar escoger el número de cerillas y la toma 
máxima, etc. 
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LAS CERILLAS 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
18 PRINT “TOTAL "; 10 PRINT PAPER 6;"TOTAZ “:: BE 
20 INPUT N EP 2,18 
38 PRINT ON £ 29 INPUT N 
30 PRINT "TOMA MAXIMA *, 39 PRINT N 
59 INPUT 1 40 PRINT.PAPER 4;“TOMA MAXIMA 
58 PRINT 1 $ “5: BEER .2,18 
78 PRINT “QUIEN JUEGS 182 : JR se INPUT Í 
(0L5zX (ar 58 PRINT 1 
25 INPUT O 78 PRINT PAPER 5; “QUIEN JUEGA 
108 IF D THEN GO TO 220 1ER : JR (0);ZX (1): BEEP .2,10 


110 PRINT “SU TURNO " 

129 INPUT P 

130 IP P<>INT_P OR P<i OR P>IO 
R_P>N' THEN GO TO 119 

. 140 LET_D=SGN PI 

158 GO TO 1900 

=140 

(NS) 7 (14D) 

NT_T THEN 90 TO 259 


LET P2ABS_(S-D) 
TF NOT P_ THEN LET P=D 
LET O=NOT PI 


“QUEDAN “¿N 


¡T_"BRAYO” 
THÉN PRINT “PARA MI" 


TOTAL 13 
TOMA MAXIMA 4 
QUIEN JUEGA 1ER : UR (0:5ZX 15) 


QUEDAN 11 
SU TURNO 4 
QUEDAN ? 


1 

SUEDAN 5 
SU TURNO Y 
SUEDAN 3 


SUEDAN 1 
SU TURNÓ 


75 INPUT_D 
188 IF D THEN GO TO 288 
110 PRINT INK S; FLASH 1; 


129 INPUT P 
138 1F P«> INT POR P<: OR PIO 
R_P>N THEN GO TO 1108 
LET D=1 
GO _TO 1080 
LET S=1+D 
LET_T=(N-5) / (14D) 
IF _T=INT_T THEN GO TO 250 
LET_S=5-D 
GO TO 218 
LET Pa2ABS (S5-D) 
PE NOTGP THEN LET P=0 


LEr 
ERIN A 
a ERINT DRTONT 1; PAPER 3;"9U 


PáUse 
9 E NOT e Prmen 60 TO 2000 


su TU 


S BRÍNT_PAPER 5; “BRALO: 
2019,1f D THEN PRINT PARER 5; PA 


TOTAL 24 
TOMA MAXIMA 4 
QUIÉN JUEGA ¿ER : UR (01Zx (2) 


QUEDAN 21 
SU TURNO 


4 
QuEDen 1? 


QUEDAN 16 
SU TURNO 


3 
QUEDAN 13 
2 


SUEDAN 11 
SU TURNO 


s 
QUEDAN 7 


SUEDAN 6 
SU TURNO 
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Cerillas para varios 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: FAST o SLOW. 

Dificultad de programación: fácil. 

Categoría del juego: lógica (para varios jugadores). 
Dificultad del juego: bastante difícil. 


En este juego para varios jugadores, el que dirige el juego deberá, al 
principio de la partida, escoger un número de cerillas e indicar al ZX 
el número de jugadores. 

En cada jugada, el jugador que tiene el turno está autorizado a 
retirar del montón de cerillas que quedan hasta el doble de lo que 
acaba de retirar el jugador que le precede; el que retira la última 
cerilla gana (o pierde, si se modifican ligeramente las reglas). 
Las líneas 19 a 50 permiten las diferentes entradas. 

Las líneas 109 a 139 efectúan las impresiones. 

La línea 159 controla la jugada de cada jugador (en relación con la 
jugada precedente). 

La línea 202 administra las jugadas (rebaja en 1 el número del 
jugador). 

La línea 299 realiza la comprobación del final, y la línea 220 visualiza 
el número del jugador que gana (con la regla prevista al inicio). 


Después de poner en marcha el programa con RUN, se introduce 
el número de cerillas inicial, seguido de NEWLINE, y después el 
número de jugadores (y NEWLINE). 

El primer jugador podrá solamente tomar una cerilla; el segundo 
podrá quitar 1 o 2; el siguiente, 1, 20 1,2, 3 0 4, según la jugada 
anterior, y así sucesivamente; el ZX visualiza cada vez el número 
máximo autorizado. 

Cuando se retira la última cerilla, se visualiza EL JUGADOR ... HA 
GANADO, y la partida se termina, 


POSIBLES EXTENSIONES: Puede decidirse que el que tome la última cerilla queda 


eliminado del juego y volver a empezar la partida con los jugadores 
restantes, los cuales se irán eliminando de esta manera, unos detrás 
de otros. 

Puede considerarse una representación gráfica de montones de 
cerillas, decidir al azar el número a retirar al inicio de la partida, etc. 
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CERILLAS PARA VARIOS 


PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 

10 PRINT “NUMERO DE CERILLAS * _ 18 PRINT “NUMERO DE CERILLAS 
20 INPUT ON INPUT ON 
39 PRINT N PRINTON 


. 40 PRINT “NUMERO DE yUGADORES PRINT “NUMERO DE JUGADORES 
INPUT y 

LET F=1 

LET K=3 

CLS 

PRINT AT 4,1, "JUGADOR NO, 


,PRINT AT 6,1;"NUM. MAX A SA 
PRINT.AT 8,1;“NUM. TOTAL “; 


PRINT AT 12,1;"5U TURNO 
INPUT C 

1F 028 OR C>F OR CoN THEN O 
139 

LET N=N-C 

LET F=C+2, 

IF NOT N THEN GO TO 220 

IF NOT (K-2) THEN LET K=J 
LET K=k 


60 To de 
PRINT AT 12,1;"EL JUGADOR " 
* HA GANADO": BEER .8,10 


4,5GN PI: "JUGADOR 


[3 

118 PRINT AT 6,5GN PI;'NUM. MAX 
A SACAR “;F 

222 ÓRINT AT 8,80» PI; “NUM. TOT 
130" Przwr AT 12,SGN Pl, 5U TURN 


148 INPUT C 

150 TF C=NOT PI OR C>F IR CNT 
HEN 60 TO 138 

150 LET N=N-C 

199 LET F=C+C 

200 IF NOT N THEN GO TZ 220 
282 IF NOT (K-SGN PI) TMEN LET 


205 LET _K=k-SGN PI 

210 G0 TO 80 

220 PRINT AT _12,5GN PI;"EL JUGAR 
DOR “;K;" HA GANADO" 


JUGADOR NO. 3 JUGADOR NO. 1 

NUM. MAX A SACAR 10 NUM. MAX A SACAR 19 
NUM. TOTAL 28 NUM. TOTAL 4 

5u TURNO SU TURNO 
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Calendario perpetuo 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: FAST. 

Dificultad de programación: mediana. 
Categoría del juego: reclamo publicitario. 
Dificultad del juego: ninguna. 


Este programa permitirá confeccionar todos los años su propio 
calendario; podrá utilizarse para enviar a los amigos un calendario 
del mes de su nacimiento o para felicitar el santo, etc. 


Las líneas 20 y 49 permiten introducir los meses y el año. 

Las líneas 59 y 60 calculan el número del primer día del mes. 
La línea 79 calcula el número de días del mes (para simplificar, no se 
tiene en cuenta el 29 de febrero). 


El bucle A (96-110) efectúa la impresión del calendario propiamente 
dicho. 


Después de poner en marcha el programa con la instrucción RUN, 
deberá introducirse el año bajo la forma, por ejemplo, 1983, seguido 
de NEWLINE, se obtiene entonces la pregunta MES, a la que es 
conveniente contestar con el número de mes siguiendo el orden 
normal (1 para ENERO, 2 para FEBRERO, etc.). 

Se teclea a continuación NEWLINE, y el calendario se visualiza 
entonces en la pantalla. 

Para guardar una copia, si se dispone, por supuesto, de una 
impresora, bastará con pulsar COPY al final de la visualización. 


POSIBLES EXTENSIONES: Podrá preverse sin dificultad la visualización de los 29 de 


febrero, una opción que permita la visualización de un año completo, 
la introducción del nombre de los meses, etc. 
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CALENDARIO PERPETUO 


PROGRAMA ZX 81 


10 PRINT * ANO *; 

29 INPUT A 

25 PRINT A; 

39 PRINT MES *; 

40 INPUT $ 

45 PRINT M 

S8 LET D=INT (965.25+(9-1M:INT 
PI)I+INT (30.64 (M4SGN_PI+IM<IN 


T PIIF1D)) INTO CCUINT (1A-IM<INT 
P11)/188)-7)+,75)+5GN Fl 


69 LET D=D-?+1NT (0/7 

79 LET M=31-(M4 OR _m25 OR M=9 
OR_M=11) -(M=2) + INT PI 

75 PRINT 

89 PRINT "DOM LUN MAR MIE YE 
VIE_SAB 

65 PRINT 

98 FOR A=SGN PI TO mM 


199 PRINT TAB ¿r1D+AR5GN PILGA 
p195 1F D+A-SÓN PIS THEN LET 
110 NEXT A 

ANO 19584 MES 12 
DOM LUN MAR MIE JUE VIE SAB 

1 

2.3.4 5.67 8 
9 10 11 12 19 4 15 
loe 17 16 19 20 21 22 
23 24 25 26 27 28 29 
38 31 


31 


PROGRAMA ZX SPECTRUM 
ANO 


MES 


17 -1NT 
ACA REO EIA 
80 LET D=D-?7*INT (D 


70 LET M=91-(Mx4 OR M=5 OR M=9 
OR_M=11) =u 3 

75 PRINT PRINT 

68 PRINT INK 2; INVERSE 1,” 0D 


OM _LUN_MAR MIE JUE UTE SAB 
85 PRINT 
$0 FOR A=SGON PITO mM 
108 PRINT PAPER 6; INK 2; BRIGH 
T 1:TAB 4+ (D4A-1)+2,A, 
106 TF D+A-126 THEN LET D=D-7 
110 NEXT A 


ANO 1984 nes 


1 2 “ 5 
56,7 8. 9 10 11 12 
13 24 185 16 17 18 19 
20 21 22 23 24 25 26 
27 28 29 38 31 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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La ruleta 


Modalidad: FAST o SLOW. 

Dificultad de programación: mediana. 

Categoría del juego: de azar (para varios jugadores). 
Dificultad del juego: fácil. 


Es sobre todo espectacular por su aspecto gráfico: una bola, 
representada por un cuadrado negro, se desplaza en un terreno de 
juego que consta de casillas numeradas del 1 al 36, además de tres 
casillas suplementarias, el M9, una casilla P (para par) y una casilla 1 
(para impar). 

La bola recorre como mínimo una vez cada casilla, y después se para 
a la segunda vuelta; a continuación se vuelve a lanzar para otra 
jugada. 


El bucle 1 (19-30) dibuja el terreno de juego, al que la línea 40 añade 
los tres símbolos P, 99 e 1. 


El bucle I (110-130) realiza el desplazamiento de la bola; la parada se 
controla con las líneas 125 y 128. 


La línea 135 efectúa un borrado particular si la bola pasa por los 
símbolos P, MM e L 


La línea 144 hace descender una línea. 
La línea 169 comprueba la llegada al final del terreno de juego. 
La línea 179 obtiene la posición de parada. 


Es suficiente con ejecutar RUN y mirar. 

Una vez que la bola se para, basta con pulsar cualquier tecla (excepto 
BREAK) para volver a lanzarla. Para salir del programa se 
pulsa BREAK. 


POSIBLES EXTENSIONES: Para que se parezca más a una ruleta, pueden intentarse 


diferentes acciones: dibujar mejor el terreno de juego, introducir 
colores, simular que la bola va más despacio, introducir distintas 
posibilidades de apuestas y asegurar la gestión de las ganancias 
correspondientes, llevar la contabilidad de varios jugadores y 
anunciar los resultados de una forma más usual. 
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LA RULETA 


PROGRAMA ZX 81 


ET A=INT PI 
ET BxA-SON PI 
OR T25GN PI TO AA 

29 PRINT AT A,AST+A/B1L;AT AA 
¿ALTAR ¡BeT+18;AT AA ALTA; Brl-S 
E B+1+17 


k 
40 PRINT AT L,SGN PI; “P";AT Le 
e" At 19,SGN PI;"I" 


PRINT ATL, 
PAUSE CODE “=" 
LET X=X-SGN PI 
JE NOT X THEN PAUSE 4E4 


NEXT_1 

PRINT AT S/SON PI." “¡AT 8, 
¿0 "¡AT 14,SGN PI; verd 
LaL+A 

1460 TF L<>CODE THEN GO TO 1 


ze Lor xeryr (RND4CODE 
188 GO YO CO0E "7" 


ya 


“PIO 


a 2 4 6 8 10 12 14 158 18 
28 22 mg 20 30 32 34 26 

eo 

1 1.3057 9 sU11131517 


19 21 23 25 2? 29 31 93 35 


3 


PROGRAMA ZX SPECTRUM 


S BORDER 3; LET A=3 

7 LET BxA-4 

10 FOR I=1 To 9 

28 PRINT PAPER 2;AT A/AXI+A:Bx 


I, PAPER 4;AT _R+A AXISA; B41415; 
PAPER 297 9,A£1+A,Br1-4; PAPER 
4,AT 12,A+148; BA1+i7 

30 NEXT 1 

2 LET x=8 


IS LEFT LaAsr 


1 
IF NOT X THEN BEEP 0.2 


¿19 
8.2,10: BEEP 0.2,10. PAUSE 


169 IE Loy 
78 LET X=INT (RNDF66) 
ide Go TO 38 


$ Tmen 00 TO 110 


2.4 6 6 10 12 14 16 18 


20 22 24 28 Ñ 30 32 34 36 


e. 
1305709 


11 19 15 17 


19 21 23 25 27 29 31 323 35 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Batalla naval 


Modalidad: SLOW o FAST. 
Dificultad de programación: fácil. 
Categoría del juego: de reflexión. 
Dificultad del juego: fácil. 


Una batalla naval, en principio bastante simple, con un solo barco 
que se esconde al azar en una rejilla de 10 x 10 casillas, 

En cada jugada se dispara dando las coordenadas H (horizontal) y 
Y (vertical) de la casilla apuntada, y el ZX responde visualizando la 
distancia que separa el barco invisible de la casilla apuntada. Pero, si 
se dispara demasiado cerca del barco, existe el riesgo de que éste 
vuelva a esconderse al azar. 


Los bucles 1 (20-60) y J (30-58) dibujan el terreno de juego. 
Las líneas 79 y 80 definen el emplazamiento del barco. 

Las coordenadas del disparo se introducen en las líneas 190 y 120, y 
la línea 130 visualiza la jugada en la pantalla. La distancia se calcula 
en la línea 140, y la línea 159 comprueba si se ha dado en el blanco 
o no 

La línea 160 interviene para mover el barco, si los disparos se han 
acercado demasiado. 

La línea 170 permite la visualización de la distancia. 


El terreno de juego se visualiza después de pulsar RUN. Cuando se 
visualiza H, se responde dando el número de la línea horizontal sobre 
la que se desea disparar. Se pulsa en seguida NEWLINE, y a la 
pregunta V se contesta dando el número de la columna vertical 
seguido de NEWLINE. Si se ha disparado demasiado cerca, se 
obtiene la visualización PFTT..., lo que significa que el barco 
enemigo ha cambiado de lugar. 

Si se dispara sobre la casilla exacta, se obtiene la visualización del 
número total de disparos efectuados para ganar. 


POSIBLES EXTENSIONES: Son innumerables, ya que la batalla naval es uno de los 


juegos más difundidos que existen. Pueden introducirse dos jugado- 
res, jugar contra el ZX, poner varios barcos, submarinos, etc. 
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BATALLA NAVAL 


PROGRAMA ZX 81 


19 LET A2NOT PI 
20 FOR 1=A TO INT 
30 FOR JxA TO INT 
40 PRINT AT 2,J+J+ 
INT PISTA LAT INT 


ñ 

ñ 
Y 
P 


Y 
150 PRINT AT MS INT PI0UéPeINT P 


40 LET DSINT SOR (1x5) + 0000 + 
TVE 
SO IF NOT D TMEN GO TO CODE “€ 


185 ET S25450N PL 
5 D EN 0L TREN PRINT AT O 


an Ce ¿Fue 98, TO 70 
00E "Brita 


so 
5; DISPAROS 


IS 
a 
a 
A 


Lan 


VAJAARUNRO 


El 
y 
DISTANCIA :8 


PROGRAMA ZX SPECTRUM 


TO 9 
NT AT 0.32UE3) JAY 24251 


IRCLE INK 2 5+256+ (32393) 
32,188-(178+ (34231) /22) ,3 
SÓ NEXT Y 
58 NEXT 1 
65 LET S=1 
78 


LET X=INT (RND+10) 
89 LET YzINT (RND410; 
98 PRINT AT 21,8 


09 INPUT H 
110 PRINT AT 21,8;"4 


INPUT Y 
138 PRINT AT 24H+2,3444+3,5 
149 LET DxINT SOR ((X-H)*(X=H) 4 
(YU) E (Y -U1) 
150 IF NOT D TMEN GO TO 280 


OO. 


0d 
SOCOIDOIDO » 


10 030a4ron»e 


AX 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Golf 


Modalidad: FAST o SLOW. 
Dificultad de programación: mediana. 
Categoría del juego: solitario. 
Dificultad del juego: bastante fácil. 


Se trata de realizar con el mínimo de golpes posibles un recorrido de 
golf de 18 agujeros. Para realizarlo, es necesario golpear la pelota 
con más o menos fuerza hasta que caiga en el agujero. 

Pero, ¡cuidado!, puede haber un cierto riesgo en cada golpe, y a 
menudo se tendrá que volver hacia atrás (entonces deberá colocarse 
un signo — antes de la indicación de la fuerza). 


La línea 25 permite definir la posición del agujero, y la línea 30 
dibuja el campo de juego. A 

En la línea 80 se calcula el desplazamiento que se realiza. 

El bucle I (99-120) efectúa el movimiento de la pelota. 

La línea 138 comprueba si la jugada es buena o no; si lo es, vuelve a 
empezarse (línea 229) hasta que se hayan efectuado los 18 agujeros 
(bucle S (15-229); fin del bucle en 249, con visualización de fin). 


Se obtiene la visualización del campo pulsando RUN, así como el 
dibujo de la pelota en posición de salida y el texto: AGUJERO 1. 
FUERZA; se responderá entonces dando la fuerza que se desee (un 
número entre 1 y 300...). 

Después de pulsar NEWLINE, la pelota empieza a moverse; puede 
pararse delante del agujero (en este caso se vuelve a empezar), caer 
dentro (se pasa al siguiente agujero) o pasarse: se golpeará entonces 
con una fuerza negativa. 

El juego se termina con la visualización 18 AGUJEROS EN ... 
GOLPES. 


POSIBLES EXTENSIONES: Es posible ampliar el juego para que participen varios 


jugadores, mejorar la calidad gráfica, utilizar una representación 
espacial del campo (remitirse a determinados juegos de arcada), 
tener un campo más accidentado, obstáculos, cambiar de club, etc. 
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GOLF 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
10 LET E=NOT PI 19 LET E-0 
15 FOR SxSGN PI TO 15 15 FOR 3-1 TO 18 
28 LET X=S6N PI 28 LET x=1 
25 LET T=INT (214AND+33 AE TSINT. (2 LERND+91 


39 PRINT ar 2 


SON PI 


a ¿AT 2d. 
PRENTCAT 5,SGN PI: “AGUJERO 
“FUERZA 
INPUT F 


PRINT AT _S,19:F 

0 LET F=INT (F+,16-1 ¡ABS F)et 
(ANO) +.1) +42) /1990) 

HEN GO TO_235 


Bl 
sor 
85 IF NOT_F 
90 FOR I=SGN F TO F STEP SON F 


100 LET X=X+S5GN F 
119 IF X:31 AND X>=5GN PI THEN 
ARINT AT 20,X-SÓN F;" ":AT 20,X; 


NEXT 1 
JF_X=T_THEN GO TO 208 
LET_E=E4+SGN PI 
60 TO 35 

PRINT AT 20,x;" 


PAUSE 200 
NEXT 5 


¿ATA 


CS 
240 PRINT 


18 AGUJEROS EN 
GOLPES" el 


AGUJERO 1 FUERZA 40 


37 


PRINT_INK 3:87 


A 8x5 "O 
Ss PRENF ar 5,1; "AGUJERO 

FUERZA 

68 INPUT F 

78 PRINT AT S5,19:F 

88 LET F=INT (F+.16-((RBS Fix*t 
SOR_ (RND)+.1)t2) /1088) 

85 IF NOT _F THEN GO TO 235 

98 FOR I=SGN F TO F STEP SON F 
100 LET X=X+SGN F: PAUSE 15 
¿10 IF X<31 OND X> 21 THEN PRINT 
ar 28, qc) PO CAT 20.x:" 


PRINT AT 20,x;" 


28 PRD 16 AGUJEROS EN 


e 
SóLPES* 


AGUJERO 4 FUERZA 120 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Solfeo 


Modalidad: SLOW o FAST. 
Dificultad de programación: mediana. 
Categoría del juego: de reflexión. 
Dificultad del juego: fácil. 


Este programa propone una iniciación elemental al solfeo, permitien- 
do aprender a reconocer fácilmente las diferentes notas, que 
aparecen unas detrás de otras en un pentagrama; después de la 
visualización de la nota, debe introducirse su nombre y se visualizará 
el marcador permanentemente. 

El programa está previsto inicialmente para la clave de sol, pero 
puede adaptarse muy fácilmente a cualquier otra clave. 


El bucle 1 (15-30) dibuja el pentagrama. 

La línea 49 escoge la nota y se visualiza en la línea 50. 

La línea 60 visualiza el marcador. 

La línea 79 visualiza el nombre de la clave (aquí es la clave de sol) y 
realiza la pregunta. 


La línea 85 se ocupa del fin de la partida. 
Las líneas 9 y 109 descifran la nota introducida. 
La línea 129 controla el resultado. 


Después de haber puesto en marcha el programa con RUN, se 
visualizará el pentagrama, así como la primera nota. Se contestará a 
la pregunta ¿NOTA? dando el nombre de la nota (do, re, mi, fa, sol, 
la o si), seguido de NEWLINE. 

El marcador indicará si es correcto o no y se visualizará una nueva 
nota. Para terminar, bastará con responder Y seguido de NEWLINE 
a la pregunta ¿NOTA? 


POSIBLES EXTENSIONES: Puede cambiarse fácilmente el programa para trabajar con 


distintas claves. 

También puede mejorarse el grafismo, introducir color, el sonido 
(por ejemplo, si se contesta correctamente, se escuchará la nota). 
También podrá realizarse, siguiendo el mismo principio, un juego 
que permita reconocer acordes, etc. 
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SOLFEO 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
S LET S=N0T PI S LET 5=0 
7 LET P=S ? LET P=5 
8 CLS 12 Paren 5: cis 
S FOR I=3SGN PI TOS 15 FOR I=1 TÓ 


PRINT AT _I+I,NOT PI: “GM 


40 LET X=INT (126RND; 
50 PRINT AT _x-SGN P 
2,9," ¡AT X4SEN PIO 
50 PRINT AT 13.NOT YE L. MARCADO 
ROS; SOBRE * q 
70 PRINT AT 18,A0T PX; CLAVE D 
E SOL; NOTA ?* 
80 INPUT 


85 IF R$="0" THEN STOP 
390 LET Yz(SGN PI AND Rs="FA") + 
END RS UHI0) + CENT PI AND RS=" 


108 LET Y=Y+(4 AND R8='"D0) +15 
AND RG="51")4(6 AND Ré="LA") 

110 LET PRP+S0N PI 

120 IF Yex OR Y=2X-7 THEN LET S= 
S+SGN_ PI 

139 GOTO 10 


DORE IS AT 1I+1.0: “MN 


30 LET X=INT (12%RND/ 
5, CRANE, EN 25, INVERSE 1¡AT x 
¿BT A1 O 


“15.0; “CLAVE DE soL 


38 Inbut as: PRINT_AS 
85 IF Rb="9" THEN STOP 
38 LET Y=(1 AND R$= 
O Réz"MI")+(3 AND R$z= 
188 LET Y=Y+14 AND R 
AND REZ"SIC)+(6 AND R 
110 LET P=P+i 
120 IM y=X OR Yox-7 THEN LET 5= 
S+1: BEEP 1,20-44X: PAUSE 108 
138 Go To 10 


1) +12 AN 


Mp5 


MARCADOR :S SOBRE S INTENTOS 
CLAVE DE SOL; NOTA :MI 
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El juego del 21 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: FAST o SLOW. 
Dificultad de programación: fácil. 
Categoría del juego: contra el ZX. 
Dificultad del juego: fácil. 


Deberá introducirse una apuesta al principio del juego, y podrán 

tirarse los dados tecleando 1; en cada tirada se obtiene un nuevo total 

que aumentará poco a poco acercándose a 21. Se intentará 

aproximarse a este número lo máximo posible, sin pasar de él. 

Cuanda.se.decida orar. hastará. con ieciosrÓ y 5e.deiará. inpara! -. 
ZX, que intentará obtener entonces una mejor puntuación. 


Al final de cada partida se visualizán las ganancias, así como su total 
(o de pérdidas). 


Las líneas 60, 79 y 89 realizan el control de quién debe jugar (jugador 
o el ZX). 

El subprograma (1008-1019) tira los dados. 

Las líneas 110 y 129 calculan el total obtenido por el jugador y lo 
visualizan. 

El total del ZX se calcula en la línea 179 y se visualiza en la línea 175. 
La línea 189 controla el final del juego para el ZX. 

Las líneas 208 a 210 visualizan los resultados, y la línea 220 busca 
quién es el ganador. 

La ganancia (o la pérdida) se visualizará con la línea 260, y el total 
con la línea 590. 

La línea 529 controla el final de la partida. 


Pulsar RUN para poner en marcha el juego. 

Ante la pregunta SU APUESTA, introducir la apuesta inicial, 
seguida de NEWLINE, y teclear 1 para lanzar el dado. La primera 
tirada se visualiza bajo la forma TIENE ..., y se volverá a teclear 1 
seguido de NEWLINE tantas veces como se quiera volver a tirar. 
Cuando se termina, se teclea Y y NEWLINE para dejar jugar al ZX 
(que hace la función de la banca). La ganancia (o la pérdida, si está 
con un signo — ) se visualizará al final del juego, así como el total de 
ganancias (o pérdidas) obtenidas desde el principio. 

Si se desea parar el juego, se tecleará N como respuesta a la pregunta 
SIGUE ¿(S o N)? : 
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POSIBLES EXTENSIONES: Evidentemente, este juego será mucho más interesante si lo 
practican varios jugadores; por consiguiente, será fácil modificar el 
programa; también puede dibujarse el dado o, mejor aún, utilizar 


cartas, lo que permitirá jugar al BLACK JACK. 


EL JUEGO DEL 21 


PROGRAMA ZX 81 


18 LET G=NOT PI 
26 cl 
38 PRINT “SU APUESTA *; 
49 INPUT M 
$9 PRINT A 
ES 5er 
RINT AT S,1"2 ¿TIRAR ; O 
TERNA 
88 TF NOT R THEN GO TO 130 
09 3uD 1900 
BRINT Ar 9,1; "TOTAL +";7 
G0_TO 78 


CLS 
PRINT "LA BANCA JUEGA" 
A 1900 


159 
198 BRIN? at %s, 1;“TOTA s 

; Lo 
12¿ PAUSE_1 
18: ST OR S>=C0DE “)” THEN 
50 GN SobÉ a 
¿39 ic 


XIENE “¿T 
LA BANCA TIE 
OR (5:(T AND T 


200 PRINT 9,1 
eee ESTO 


“eo TF S>CODE “4” 
=C90E E 


94L_ [HEN 60 To 260 


Ler 
PRINT Ar 14, 1; "CANANCIA 
Prem 


0 
BRE 

"TOTAL 
1s 0 NI 


HEN STOP 


Er id (RÑD+6+2) 


056 


18 
1ó0é* 


SU APUESTA 18 


1 ¿TIRAR ¡ Q ¡TERMINAR 


TOTAL :11 
TIENE 12 


LA BANCA TIENE 15 


CANANCIA -18 


TOTAL -19 
SIGUE (5 0 Nm? 


4 


PROGRAMA ZX SPECTRUM 


LET 620 


8 CLS 

38 BRINT SU APUESTA *; 
INPUT 

Se PRINT Ñ 


38 BRINT AT 5,1;"1 :TIRAR se 
a 


118 
129 PRINT EE 9,1; "TOTAL 
125 G0 TO 7: 
130 CLS 

149 PRINT 


150 
160 ce si8, 1900 
178 L "Se: 


GT 


¿¿hA BANCA JUEGA" 


E 


x 

178 BRENT Ar 5,1; "TOTAL 

177 PAUSE 120 

180 IF S>T OR S>217 THEN G0 TO 

199 G0_TO 168 

196 CLS 

Eq09 CRINT AT 9,25" 
P.0.05,0 


"TIENE “¡T: BE 


AO RRÍRT AT 22,2,"LA BANCA TIE 
Ss Es . 


(S(T AND Tc=21) 


18,1; “TOTAL "¡6 
PRINT “SIGUÉ (3 0 N)7" 

" THEN STOP 
E 
1989 LEY SÍNT (RNDI6+1): BEEP 1 
475 
1010 REruRN 
TIENE 19 


LA BANCA TIENE 17 


CANANCIA 189 


TOTAL 


108 
SIGUE (5 0 N)7 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Par-impar 


Modalidad: FAST. 

Dificultad de programación: fácil. 
Categoría del juego: tirada de dados. 
Dificultad del juego: fácil. 


Es un juego de azar para uno o varios jugadores. El ZX tira 
simultáneamente dos dados que no son visibles y hace tres preguntas: 
cuál es la paridad del total, cuál es el total y, por último, dar el valor 
de uno de los dados; luego puede continuarse el juego o interrumpir- 
lo en cualquier momento. 


Los dados se tiran por un subprograma que se encuentra en las líneas 
1000 y 1019. 

La línea 56 anota el número de partidas, y las líneas 150, 219 y 259 
contabilizan los puntos marcados. 

La paridad del total se determina por las líneas 97 y 160 (la línea 199 
compara con la respuesta del jugador). 

La línea 409 efectúa la visualización del final de la partida: total, 
número de puntos, número de partidas jugadas. 

La línea 429 provoca la parada si se responde N a la pregunta SE 
CONTINÚA. 


Se pone en marcha el programa con la instrucción RUN. 

Basta después con responder a las preguntas hechas, siguiendo 
escrupulosamente las indicaciones dadas y pulsando NEWLINE 
después de cada respuesta. 

Cuando una partida se termina, se obtiene la visualización del total 
actual y del número de partidas bajo la forma de, por ejemplo, 6/16. 
Entonces se obtiene la visualización de la pregunta SE CONTINÚA 
(S o N), y se responderá N seguido de NEWLINE para terminar. 


POSIBLES EXTENSIONES: Si quieren jugar varias personas, será interesante prever la 


posibilidad de apostar y de añadir una gestión de la puntuación 
realizada por cada jugador. 


También se podrá prever una mejora en el plan de la presentación 
(utilización del color, etc.). 


42 
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PAR-IMPAR 


PROGRAMA ZX 81 


19 LET T=NOT PI 

15 LET R=T 

29 GO SUB 1000 

39 LET_A=X 

49 GO sUB 1080 

SQ LET R=R+SGN PI 

60 LET 5=A+X 

78 CLS 

88 PRINT "TOTAL PAR (2) 0 IMPA 


99 INPUT N 

95 PRINT ON 

97 LET P=S/2-INT_ (5/2) 

108 IF NxP OR N-,SxP THEN GO TO 


118 PRINT AT 5,1; "FALSO" 

129 GO To 168 

149 PRINT AT_ 5,2; “EXACTO” 

150 LET T=T4SGN PI 

160 PRINT AT 8,1;*“SU TOTAL :”; 
179 INPUT N 

175 PRINT_N, 

190 IF NaS THEN GO TO 219 

190 PRINT AT 12,1: "HA PERDIDO” 
195 PAUSE 139 


mn! 


z 
AQUN E! 
08290) 


PRINT ES 12,1; "BRAVO; DAR U 


a 
INPUT N 

ROA ANO Nc)5-A THEN GO 
LET_T=T+1NT PI 
G0_TO 195 

565 


RINT a. 
dr y 


THEN STOP 
(RNOF6+1) 


Y 


2 
2 
(7) 
2 
2 
a 
4 
c 
4 
4, 
4 


AR 


SON eS SnU 


1610 RETURN 


TOTAL PAR (0) O IMPAR (1) :2 


FALSO 


SU TOTAL :8 


BRAVO; DAR UN DADO ? 


PROGRAMA ZX SPECTRUM 


12 LET T-2 
LETOR=T 

Zo 60 su8 1000 
LET_A= 


23 56 sUS 1008 

50 LET R=R+1 

58 LET S=A+X: BEEP 1,3:+5-20 
78 CLS 


¡INT “TOTAL PAR (07 0 IMPAR 
98 INPÚT N 


E) 
P THEN 60 TO 
118 PRINT AT 5,1;"FALSO" 
128 GO TO 1680 
140 PRINT QT 5,1; "EXACTO" 


SU TOTAL :%; 


188 IF NaS THEN GO TO 210 
198 PRINT AT 12,1;"HA PERDIDO" 


2 
AT 12,1;"BRAVO; DAR U 


INPUT 
e INOD ANO NcoS-A THEN 00 


190 
Masa ke RET T=Te3: 00 TO 195 


405 BRENT “TOTAL 0 Ti 
CONTINUA (5 O N)" 


410 INPUT R$ 

430 If Rg=oN" THEN STOP 
438 G0 TO 28 

1008 LET X=INT (RND*6+1) 
1010 RETURN 


TOTAL PAR (0) O IMPAR 


EXACTO 


SU TOTAL :7 


HR PERDIDO 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Simón 


Modalidad: FAST o SLOW. 

Dificultad de programación: fácil. 

Categoría del juego: juego de memoria (uno o más jugadores). 
Dificultad del juego: mediana. 


Aparecerá una serie de números, uno a uno. 
El jugador deberá, en cada jugada, repetirlos todos desde el 
principio (lo que significa que tendrá que teclear uno más cada vez). 
Intentará realizarlo el máximo de veces posible. Después de cada 
partida se guarda en memoria la mejor puntuación, lo que permitirá, 
llegado el caso, que jueguen varias personas. 


La línea 15 llama a un subprograma (líneas 948 a 1910) que marca las 
reglas del juego. 

La línea 29 confecciona las cifras, que a continuación son almacena- 
das en una variable alfanumérica AS (línea 39) 

La línea 49 permite la impresión de la última cifra al azar en la sexta 
línea de la pantalla, y la duración de esta visualización está 
determinada por la línea SB. 

Las líneas 80 y 99 esperan la respuesta del jugador, la cual se 
compara con la respuesta correcta en la línea 109. 

La línea 149 marca los puntos. 

La línea 159 controla la mejor puntuación. 

Las visualizaciones del final de la partida se realizan desde la línea 
200 a la línea 250. 


La puesta en marcha con RUN provoca la visualización de las reglas 
del juego, y después la de una cifra que desaparece. Entonces el 
aparato realiza la pregunta ¿SU SECUENCIA? 

Se contesta tecleando la cifra, y a continuación NEWLINE. Si es 
correcta, aparece un instante la visualización de EXACTO. ATEN- 
CIÓN, y se muestra una nueva cifra, que se borra? y de nuevo la 
pregunta ¿SU SECUENCIA? Entonces se vuelven a teclear las dos 
cifras ya obtenidas, seguidas de NEWLINE. Se continúa así (3 cifras, 
después 4, 5, etc.), hasta que se comete un fallo, lo que provoca la 
visualización de la puntuación (y de la mejor puntuación obtenida 
hasta este momento), seguida de la pregunta OTRA PARTIDA 
¿(S o N)?; para continuar se teclea $. 

Puede salirse del programa en cualquier momento pulsando BREAK 
antes de la visualización de una cifra o tecleando una letra, seguida 
de NEWLINE. 
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POSIBLES EXTENSIONES: Pueden realizarse juegos parecidos, más o menos perfeccio- 
nados, sustituyendo las cifras por letras, por colores, por sonidos, 


etcétera. 


SIMÓN 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
19 LET M:NOT PI 12 LET N=0 
12 LET 05 12 LET As="" 
15 GQ SUB san 15 GO suB ses 
17 LET H=NOT PI 17 LET Ha 
19 PAUSE 90 18 PAUSE 90 
20 LET X=INT (RNO+18 20 LET X=INT (ANDA10» 
30 LET ASSAG+STRS X 39 LET PTS 
40 PRINT AT 5,AND*33.x 49 PRINT AT 433:X: BEEP 4 
SO PAUSE 20+20*RNO ,54X-20 
70 50 SUB se EA 2920 HAND 
2.90 PRINT AT 8,1;"SU SECUENCIA 7e 
38 Parar Sr %, 1;'"SU SECUENCIA 

99 INPUT PE Ed 


1F RS(>AS THEN 60 TO 200 
PRINT AT 10,1: "EXPCTO . ATE 


LET _H=H4+5GN PI 
ES 930, [HEN CET mee 


BRINT "SU PUNTUACION =m 
MEJOR PUNTUACION :m 


PRINT "OTRA PARTIDA (5 2 Ni 
INPUT R$ 
TF RG=UN" THEN STO 
Go TO 12 
PRÍNT AT 3,1;"D8 
21; "DEBE REPETIR 
TODOS LOS NUMERÓS. (UNC MAS Sap 


RA UEZ) 
1018 RETURN 


DEBE REPETIR TODOS .LOZ NLMEZDS 
IUNO MAS CADA VEZ¡ 


SU SECUENCIA ? 
EXACTO . ATENCION 


INPUT R$ 
TF R$OoAS THEN GO TO 200 
PRINT AT 10,1; “EXACTO . ATE 


LET_HaH41 
ZE M50,IMEN LET mn 


PRINT “SU PUNTUACION “;H 
“MEJOR PUNTUACION “;M 
PRINT “OTRA PARTIDA (5 0 Ni 


N" THEN STOP 
G0_TO 12 


1898 PRINT AT _3,1;"DEBE REPETIR 
TODOS LOS NUMEROS. (UNO MAS CAD 
RA UEZ)" 

1018 RETURN 


DEBE REPETIR TODOS LOS NUMEROS 
IUNO MAS CADA VEZ) 
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Adivinar una cifra 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: FAST. 

Dificultad de programación: fácil. 
Categoría del juego: tirar los dados. 
Dificultad del juego: fácil. 


Es un juego de azar, de concepción muy simple y, sin embargo, 
apasionante. El jugador introduce su dinero y apuesta sobre una cifra 
del 1 al 6. Se tiran tres dados; si la cantidad apostada aparece una 
vez, el jugador gana su apuesta; si aparece dos veces, dobla su 
apuesta, y si aparece tres veces, triplica su apuesta. 


El lanzamiento de los dados se realiza por un subprograma situado en 
las líneas 1009 y 1910. 

La visualización se efectúa por las líneas 159 y 169. 

Las líneas 189 a 219 calculan las ganancias en las distintas 
configuraciones posibles. 

El total de las ganancias se efectúa en la línea 230 y el de las pérdidas 
en la línea 510. 

La variable R$, que se comprueba en la línea 620, determina la 
posible continuación del juego. 


Se pone en marcha el programa con RUN, lo que provoca una 
primera visualización ¿SU APUESTA?; se contesta con un número 
seguido de NEWLINE. Se obtiene entonces una segunda visualiza- 
ción ¿UNA CIFRA DEL 1 AL 6?; se introduce una cifra seguida de 
NEWLINE. Los tres dados identificados por las letras A, B y C se 
visualizan, seguidos por un mensaje que indica la ganancia o la 
pérdida. A continuación aparece una indicación sobre el total actual, 
así como la pregunta SE CONTINÚA ¿(S o N)?; se tecleará $ para 
continuar y N para parar (seguido de NEWLINE). 


POSIBLES EXTENSIONES: Fácilmente podrán introducirse controles (apuesta mínima, 


tirada propuesta del 1 al 6, etc.). También podrán dibujarse los dados 
con un grafismo más elaborado, introducir la posibilidad de jugar 
varios, hacer participar igualmente al ZX, etc. 
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ADIVINAR UNA CIFRA 


PROGRAMA ZX 81 


LET G=N0T PI 
cLS 


PRINT “SU APUESTA :“; 
20 INPUT N 
39 PRINTON 
50 PRINT AT 5,1,"UNA CIFRA DEL 
LAL6 0 
59 INPUT D 
30 PRINT D 
90 GO SUB 1000 
LET_A=X 


118 GO suB 1000 

129 LET_B=X 

139 65 SUB 1000 

188 BRINT Ar 9,4; A;TAB 8;B,TAB. 


“AC:TAB 8:"B" 


160 PRINT AT 11,4; 


TREN 66 10 5d 


(220 PRINT AT 15,1;"MÁ SANADO * 
290 LET_G=G+T 
249 GO TO 680 
309 PRINT AT 15,1;"HA PERDIDO" 
539 LET GgÓN 


a 
a 
1] 
3 
je PRINT_AT 1741; ¿TOTAL GCTUAL 
9 
y] 
a 
l] 


5U APUESTA 10 


UNA CIFRA DEL 1 AL 6-03 


2. 3 5 
A c 
HA PERDIDO 


TOTAL ACTUAL :-18; CONTINUA :5 
00m 


PROGRAMA ZX SPECTRUM 


S LET G=8 
20 ERINT SU APUESTA :*; 


Ñ 
$8 PRINT AT 5,1 
E ¿eur O 


$8 50 Sus 1000 

108 LET_A=X 

119 60 SUB 1000 

120 LET Bax 

199 SO SUB 1000 

149 L =X 

158 PRI Inx LAT 9,2A 
1,710-22: PRINT INK_4/A7 9,8: 
BÉEP 1,718-22: PRINT INK $; 
12;C: BEER 1,74C-22 

168 PRINT FLASH 1,AT 11,4; 
1 11,8;"B";aT 11,12,"0" 

178 LET 720 

160 IF DxA THEN LET T=TéN 
199 15 D=B THEN LET T=T+N 


UNA CIFRA DEL 


09 IF D=C THEN LET T=T2N 
219 IF 7=8 THEN GO TO 500 

20 PRINT AT 15,1, "HA GANADO "; 
299 LET_G=04T 

248 GO To $80 

E CANE! dd +, 1; "HA PERDIDO" 

al 

5 PRINT AT 17,1; A ¿ACTUAL 
H “5 CONTINUA 

610" inbur As 

6 do o 49" THEN STOP 

e: ¡O TO 7 

1889 LET RSINT (RNDAG+1) 

1610 RETURN 


SU APUESTA :10 


UNA CIFRA DEL 1 AL 5:03 


HA PERDIDO 


o TOTAL ACTUAL :-20; CONTINUA (S 
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El juego de Wytthof 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: SLOW o FAST. 

Dificultad de programación: mediana. 

Categoría del juego: de reflexión (para dos jugadores). 
Dificultad del juego: mediana. 


Se dispone de una rejilla cuadrada de 10 X 10 casillas. Aparece un 
punto fuera de la diagonal, y los jugadores deberán desplazarlo en 
cada jugada, siguiendo solamente tres direcciones: a la derecha, 
hacia abajo y en diagonal hacia abajo y a la derecha. El primer 
jugador que lo consiga en (9, 9) será considerado como ganador, o 
como perdedor, según el acuerdo tomado al principio. 


Las líneas 10, 29 y 30 permiten definir una posición de partida, fuera 
de la diagonal. 


Los dos bucles intercalados 1 (59-90) y J (60-80) dibujan el campo de 
juego. 

La línea 118 imprime la posición del punto móvil. 

La comprobación de final se efectúa en la línea 115. 

El cambio de jugador se asegura con la línea 130. 


Las direcciones de desplazamiento disponibles 1, 2 y 3 se descifran 
mediante tres subprogramas, que empiezan en las líneas 1090, 2009 
y 3000. 


Pulsar RUN para poner en marcha el programa. 

El campo de juego se visualiza, así como la posición de salida. 
Después se obtiene la visualización JR 1 y abajo la pregunta DIR 
¿1, 2, 3?, a la cual se responde tecleando uno de estos tres números, 
seguido de NEWLINE. 

A continuación es el turno del jugador 2. 

El juego se termina cuando uno de los jugadores llega a la casilla 
(9, 9). 


POSIBLES EXTENSIONES: En primer lugar pueden mejorarse los controles (por 


ejemplo, la salida del campo de juego no está prohibida), a 
continuación, mejorar la visualización (grafismo, color), ampliar el 
juego a varias personas con un campo de juego mayor, introducir un 
monstruo que intentará capturar a uno de los jugadores, prever 
un programa que permitirá jugar al ZX, etc. 
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EL JUEGO DE WYTTHOF 


PROGRAMA ZX 81 


FOR I=A TO Y 


608 FOR J=A_ TO Y 
TO PRINT AT INT PI ,u+V+INT SI; 
QiAT A+ A IGAT 4+1,J4J+1NT PI,” 
30 NEXT y 
90 NEXT 1 
105 LET H=SGN PI 
110 PRINT AT_Y+é A+INT FI 
115 IF X+Y=CODE ; THEN STIP 
120 PRINT AT CODE y SÓN PI:"J 
UGADOR_2” 

130 IF NOT (H-SGN_21) "MEN SRIN 
T AT CODE” ¿SEN PI; "UGADOR 1" 
149 PRINT “DÍRECCION 1.2.3 7?” 

150 INPUT D 

160 GO_SUB Dx*1000 
170 LET_Hz-H 

199 G0_TO 118 
1000 LET X=Xx*SGN PI 
1010 RETURN 
2000 GO SUB 1908 
3408 LET vav+SON PI 
3910 RETURN 

a so78s 
e. A 
E E 
Bs E 
2: am: 
5: E 
6: eS [ad 
8: pos 
S: ESO 
JUGADOR 2 


DIRECCIÓN 1,2,3 7 
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PROGRAMA ZX SPECTRUM 


LET X=INT (RND+5) 
LET Y=INT_(RNDA5) 

TF XaY_ THEN GO TO 20 
PAPER 5: LET Aza 
FOR 120 TO 9 


58 FOR J=8 TO 9 
70 PRINT AT 3,24U+3,J: AT 441.0 

¿IZ INUERSE 1¿AP 4+1, 23043, +." 
808 NEXT y 

98 NEXT 1 

105 LET Hz 

119 PR: FLASH 1, INK 1;A4T v+4 

AXERID o: BEER 1,0 

115 IF _X4+Yx18 THÉN STOP 


129 PRINT_AT 17,1/"JUGADOR 2" 
138 IF NOT (M-4) TMEN PRINT QT 
17,1; “JUGADOR 1% 

143 

159 
150 
179 
190 
1908 
1018 
29088 
3000 
3010 


ULA 


JUGADOR 2 
DIRECCION 


GO SUB D+1068 
LET H=-H 
GO_TO 118 
LET XaX+1 
RETURN 

GO SUB 1008 
LET Yzw+1 
RETURN 


VOJANAUNRO 


1,2,3 ? 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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421 


Modalidad: FAST. 

Dificultad de programación: fácil. 
Categoría del juego: tirar los dados. 
Dificultad del juego: mediana. 


Cada jugador deberá, por turnos, tirar tres dados y podrá a 
continuación escoger, en las dos siguientes tiradas, si desea volver 
a tirar o no 1, 2 0 3 dados. Entonces se marca una puntuación que 
corresponde al número que indican los dados, siguiendo las reglas 
establecidas; el siguiente jugador procederá de la misma manera. 


En primer lugar, se introduce el número de jugadores en la línea 28. 
La línea 90 visualiza el número del jugador y el número de intentos 
ya efectuados. 

Un subprograma situado en la línea 4029, que se utiliza 3 veces en el 
bucle J (149-169), realiza la tirada de los dados. 

Los nuevos lanzamientos se efectúan por las líneas 1040, 2000, 3000. 
La variable R$ rige la 2.* y la 3.* tirada. 

La impresión del resultado siempre se realiza por las líneas 149 y 119. 


Las comprobaciones del número de intentos y del cambio de jugador 
se efectúan en las líneas 170 y 199. 


Se pone en marcha la ejecución del programa con RUN, lo que lleva 
a la visualización de NÚM. DE JUGADORES. 

Se introduce el número de jugadores y se pulsa NEWLINE. La 
pantalla se borra y se visualiza JR N.* 1. 

INTENTO A, así como el lanzamiento efectuado y los nombres de 
los dados (A, B, C). 

Basta con pulsar NEWLINE si no se desea volver a tirar. Entonces el 
turno pasa al siguiente jugador. Para realizar otra tirada, bastará con 
teclear el nombre del o de los dados que quieren volver a tirarse y 
pulsar NEWLINE, por ejemplo, para volver a tirar A y C, se tecleará 
AC seguido de NEWLINE. 

Los siguientes jugadores procederán de la misma forma, 


POSIBLES EXTENSIONES: La más evidente consiste en asegurar la gestión de los 


resultados de los jugadores, refiriéndose a las reglas usuales de 
ganancias del juego 421. 

Después de cada jugada puede considerarse la visualización de un 
cuadro recapitulativo de los resultados de los jugadores. 
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También puede mejorarse la visualización de los dados (remitir a los 
diversos programas de visualización de dados que se encuentran en 
esta misma obra). 


421 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 

10 PRINT "NUMERO DE JUGADORES” 18 PRINT “NUMERO DE JUGADORES” 

20 INPUT poRtER 28 BUT e saca 

38 LET S=50N PI 38 LET S=1 

42 LET I= 48 LET 1=5 

$8 LEI KaNor Pz 38 LET K=0 

65 LET RéSTaBc" 53 LET REs"ABC" 

SE DET pego IA 

SS BRENT AT SA $8 BRINP BlAsM 1jar s BL 

87 PAINT AT 2:12; “sl 8? PRINT INUERSE 2/AT 2, 2 

99 PRINT AT 4,5; "UR, NO. “15% | 

¿INTENTO “¿K 98 PRINT AT 4,S/“UR, NO, “GI; 
100 PRINT AT 8,4;A;TAB 8;B;TAB ¿INTENTO “5 
12;C 100 PRINT AT 8,4,A: BERP 1,5%AM- 
148 PRINT_AT 10,4,"a"¡TAD as“a” | 20: PRINT AT 0/Ó/8: BEER 1.54B-2 
¡TAB 12,"c" 0: PRINT AT 8,Í2/C: BEEP 1.5%0-2 
120 BRENT AT 15,5: "ABC 7” e 


139 118 PRINT_ INK 4/4 

133 THEN 60 TO 160 19,8: 8. ar 10,12." 

13 Res "oc" 120 PRIAT AT 48,8 

140 O INT PI 138 INPUT 

183 se Sul 8 (¿óhe msi) -37) e1000 13 Hrs reno e 

- , 3) só 

188 Nod 9d el 142 FOR y=S 10 3 

179 IF Kedor PI THEN 60 TO 8% 145 G0 SUB 

180 LET Iz 159 60 SUB «Cód R$ (Ji -54)+1000 
199 IF Eo ¿THEN G0 TO se 169 NEXT Y 

208 60 TO 179 IF _K<3 THEN GO TO 80 
1000 LEY Bus? 180 LEFT I=145 

1018 190 IF I<=N THEN GO TO 50 
20 99 GO TO 40 

(RND48 45) 
(RND45+5) 
ss sn 
JR, NO. 4 ; INTENTO 2 JR, NO. 3 ¡INTENTO 2 
4 4 1 2 
Aa B ce A B ec 

asc ? ABC 7? 
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REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Rebotes 


Modalidad: SLOW. 

Dificultad de programación: fácil. 
Categoría del juego: juego de destreza. 
Dificultad del juego: mediana. 


La idea del juego se basa en la imitación de un billar de bandas. 
De un lado a otro de la pantalla se encuentran la bola y el objetivo al 
que se apunta; una serie de cifras y de letras en lo alto de la pantalla 
permite escoger el lugar donde se quiere rebotar. 

La bola irá de esta manera hacia la parte alta de la pantalla (hacia la 
parte baja si se introduce un signo menos), rebotará, volverá, si es 
necesario, a golpear la parte baja de la pantalla, rebotará, y así 
sucesivamente hasta alcanzar la línea en donde se encuentra el 
objetivo; si se está suficientemente cerca del objetivo, se ha ganado y 
se visualizará el número de rebotes. 


El bucle 1 (10-30) imprime las cifras y las letras en lo alto de la 
pantalla. 

Las líneas 40 y 59 definen las posiciones iniciales de la bola y del 
objetivo. 

La línea 60 efectúa su impresión. 


El símbolo correspondiente a la dirección escogida se introduce en la 
línea 9. 

El bucle 1 (100-130) efectúa los desplazamientos de la bola. 

La línea 129 calcula la” nueva posición. 

El cambio de dirección, cuando se encuentra una banda, se realiza en 
la línea 115, por la devolución en una parte independiente del 
programa, que está situada en las líneas 150 a 160, 


La línea 149 efectúa la impresión del final de la partida. 
La línea 155 cuenta el número de rebotes. 


Se pone en marcha el programa con RUN. 

Se visualiza el campo de juego, así como las posiciones iniciales de la 
bola y del objetivo. 

Se escoge el lugar donde se quiere hacer rebotar la bola (de 1 a U) y 
se introduce, seguido de NEWLINE. En este momento, se visualiza 
la trayectoria, seguida, si existen motivos, de la mención BRAVO; 
X REBOTES. 

Puede realizarse otra partida pulsando una tecla cualquiera, y 
terminarla en cualquier momento pulsando BREAK. 
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POSIBLES EXTENSIONES: Será muy interesante, en un aparato que disponga de un 

grafismo mejor, dibujar un verdadero billar, con su tapiz verde, e 
indicar la dirección mediante un segmento que simbolice el taco de 
billar moviéndose alrededor de la bola. 
También pueden añadirse agujeros, poner varias bolas de billar, 
poner sonido a los rebotes o a los contactos con las otras bolas, 
contabilizar las carambolas con el fin de realizar una partida entre 
varios jugadores, etc. 


REBOTES 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
5 0Ls 5 0Ls 
19 FOR I=NOT PI TO CODE "3" 10 FOR 1=8 TO 31 
20 PRINT CHAS (I+CODE “0"); 20 SRÍNT, INUERSE 1: TAN. 15 0NRá 
38 NEXT (1+CODE 9") AND 1:=9;CHAE (Ta 
rr L XzINT (CODE "?"+*RND+INT cr o 19; 
S0 LET Y=INT (CODE “>? "+RND+INT 40 LEFT X=INT (15*RND+3) 
PI) 50 LET Y=INT (154+RND+3> 
cos PRINTLAT X,NOT PIJPO“;AY Y, . 68 PRINT AT X,0,"0";A7 Y,31;"M 
33 INPUT Re 98 INPUT R$ 
958 LET lola PI $5 LET 5x0 
136 FOR Tzsow PITO cope 03" 18% FOR T=i to 
y 20 Li TeT-X/ (CODE R$-CODE “0” a CE Xx (¿do RS-CODE a” 
HIRE CA 
115 IF T7>2C0DE "=" OR T:«=NOT PI 115 1F 77-20 OR T<«=8 THEN 60 TO 
TO eS TO 158 1598 
20 PRINT AT T,I;"0" 120 PRINT AT T,TI¿"O" 
130 NEXT 1 


NERY Y 
549, 77,085 TY) NTOPESTMEN PR 
143 O sá 
150 LeEr 


158 CET Sasisen PI 
188 GO TO 139 


(T2Y) (3 TMEN PRINT I 
KZ) “BRAVO "557" RE 


0123456 789ABCDEFGHIUKLMNOPORSTUV 


mo 


00 o0 
BRAVO :4 REBOTES 
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REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Jackpot 


Modalidad: FAST o SLOW. 

Dificultad de programación: fácil. 

Categoría del juego: de azar (para un solo jugador). 
Dificultad del juego: fácil. 


Es una variante simplificada de un juego de azar clásico, en el que el 
jugador debe apostar y tirar de una palanca para poner en marcha 
el juego. Se gana si se obtienen determinadas combinaciones 
de símbolos (más o menos, según la apuesta y la combinación de 
símbolos que se obtenga). 

Aquí los símbolos se reemplazan por cifras, y se gana por el hecho de 
obtener tres cifras idénticas. Existe, además, una combinación 
especial que permite obtener el JACKPOT. 


El bucle 1 (40-60) realiza el dibujo de la máquina; la línea 74 visualiza 
la ubicación de las cifras (vacías). 

La apuesta se introduce en la línea 87 y se comprueba en la línea 95: 
se termina la partida cuando se apuesta f (salida hacia la línea 2040). 
Las líneas 139, 159 y 174 permiten obtener las tres cifras mediante 
una llamada a un subprograma que se encuentra en la línea 1909. El 
resultado se visualiza con la línea 180; después se comprueba en la 
línea 199 y, si se ha ganado, en la línea 310. 


Poner en marcha el programa con RUN; cuando se visualiza la 
pregunta CANTIDAD INICIAL, se responde introduciendo un 
número suficientemente elevado, a partir del cual se descontarán las 
apuestas. 

Después se pulsa NEWLINE y se introduce una primera apuesta 
(distinta de £), seguida de NEWLINE. 

Las tres cifras calculadas se visualizan un breve instante, así como la 
apuesta realizada y el resultado obtenido (ganancia o pérdida). 
A continuación, puede apostarse de nuevo, pulsar NEWLINE, y así 
sucesivamente. 

Para terminar, es suficiente con responder Y a la pregunta SU 
APUESTA. En este momento se visualizará el resto de la cantidad 
inicial. 


POSIBLES EXTENSIONES: Podrá considerarse el mejorar sensiblemente los controles, 


así como utilizar el color y posibilidades gráficas más elaboradas con 
el fin de simular aún más un auténtico JACKPOT. 
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JACKPOT 


PROGRAMA ZX 81 
19 PRINT "CANTIDAD INICIAL" 
28 INPUT P 


ELS 
40 FOR I=SGN PI TO INT PI 
53 PRINT AT I+INT PIJAL * 


60 NÉXT 1 
74 PRINT AT VAL 
AB VAL "10"; 

25 PRINT AT VAL 
U ABUESTAS 


8S IE NOT "NH rmen 00 TO 2000 
138 60 SUB 1009 


148 
1009 


1008 

PRINT AT VAL "S”,UAL 
TAB VAL "10";B¡TAB VAL "13* 
AÑO Aex fHEN 80 TO 3 


E ¿UAL > 
Taé VAL “1 


“11”. 36N PI,"S 


¿SUN PI: AP 
N 


Pause 168 


2810 PRINT “CANTIDAD FINAL “:P:, 
ARASTA LUEGO” 


APUESTA 10 RESULTADO 
3U APUESTA 


-19 


2 


PROGRAMA ZX SPECTRUM 


19 PRINT “CANTIDAD INICIAL 
29 INBUT P 

38 CLS 

49 FOR 1=1 TOS 

59 PRINT INK 257 143.56; MN 
50 NEXT 1 

74 BRINT INK S¡OT 5,7: "Mar 5 
10; “MAT 5.12; 

85 PRINT AT 14,1:"5U APUESTA" 
87 INPUT M 


95 IF NOT M THEN GO TO 2080 
GO SUB 1088 

LET_ AX 

GO SUB 1000 


LET Bz: 

85 sUS 1000 

PRINT AT S,7;A: BEEP 1,54A- 
8. PRINT AT 5,188 BEER 1,5%B- 
9: PRINT AT 5,1: BEER 1,54% 


20 
0590 IF A=B AND AX THEN 60 TO 3 


APUESTA 


RESULTADO * 
20% PAUSE 160" 


IF A=7 THEN LET N=M4500 
606 TO 208 

LET X=INT (9éRND+1) 
RETURN 
CL5S 
PRINT "CANTIDAD FINAL ":P;, 


: “MASTA LUEGO" 


APUESTA 10 


RESULTADO -10 


SU APUESTA 
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El juego del haba 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: SLOW o FAST. 

Dificultad de programación: fácil. 

Categoría del juego: de reflexión (para dos jugadores). 
Dificultad del juego: mediana. 


Aunque presenta un cierto parecido con el juego WYTTHOE, esta 
versión ofrece de hecho cuatro posibilidades de desplazamiento; la 
posición de comienzo está fijada aquí en (9, 9) y podría, llegado el 
caso, modificarse. 

Las posiciones de desplazamiento disponibles son: a la derecha, hacia 
abajo, en diagonal hacia abajo y a la derecha, y en diagonal 
hacia abajo y a la izquierda. 

En principio se juega con la regla de que pierde el primero que llega a 


Los bucles intercalados 1 (22-80) y J (30-70) dibujan el terreno de 
juego. 
La línea 93 efectúa la comprobación del final de la partida. 


La línea 125 permite ejecutar uno de los subprogramas de desplaza- 
miento. 


Las líneas 138 y 132 aseguran el cambio de jugador. 


Se pone en marcha el programa con RUN, y se visualiza el terreno de 
juego, así como la pregunta DIR ¿1, 2, 3, 47; las cuatro direcciones 
propuestas corresponden a los desplazamientos siguientes: 


Y, 
a 3 


El jugador 1 introduce su desplazamiento y pulsa NEWLINE. 
Se realiza el movimiento correspondiente, y después se obtiene la 
visualización JR 2 y DIR ... 

El jugador 2 procede de la misma manera, y así sucesivamente, hasta 
que uno de los jugadores llegue a (9, 9), caso en el cual se termina el 
juego. 


POSIBLES EXTENSIONES: Al principio de la partida pueden introducirse casillas con 


trampas (cada uno intentará hacer venir al otro a una de estas 
casillas). 
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También puede jugarse con varios símbolos, si es posible, de 
diferentes colores y desplazándolos simultáneamente, considerar 
terrenos de juego triangulares con dimensiones arbitrarias, etc. 


EL JUEGO DEL HABA 


PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
19 L ¿8 bEL 850 
20 FOR J=A TO 
39 FOR I=A TO 
40 PRINT AT _ IN TI 
ILAF yia,SON PI, y; NE 
PIj"a 
78 NEXT 
80 NEXT 
82 LET 
84 LEr 
38 BRIwY AÓrso 
99 _1F + 8 NT “JUGADOR ".) 
» TREN STOB 139 PRINT SDIREGE LON 1.2,0,0 7 
100 PRINT AT 16,S5GN PI; "JUGADOR 120 
E] A 125 ce Sun”, 'zqaooo 
119 RENE “DIRECCION 1,2,3,4 ?" 130 Te 


129 

125 50 5U0 121908, 

139 LEY Jeusda 

132 JZINT PL TREN 60 TO 90 


132 YE 23 ¿Ten 60 TO SO 
60 To 


RETURN 
2088 GO SUB 10098 
3099 LET X=x+5GN PI 


4020 Ri 'N 
24586739 1 z 
AIRES . 
A EE 1 
Drs ips +++ 2 
Dr +4 FA xt 3 
dr rl os 4 
ea Pa $ 
SrimMairs ss 5 
¿1:05 ¿¿: 7 
Br 33.7% A a 
Sr 1310%vq0«2::%0 2 
JUGADOR 1 JUGADOR 2 
DIRECCION 1,2,3,4 ? DIRÉCCIÓN 1,2,3,4 ? 
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Juego de la oca aleatorio 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: SLOW (FAST añadiendo una pausa). 
Dificultad de programación: difícil. 

Categoría del juego: de azar (para dos jugadores). 
Dificultad del juego: fácil. 


El juego está basado en la vieja idea del juego de la oca, pero 
añadiendo la posibilidad que ofrece el ordenador de escoger al azar 
las casillas “con problema”. 

La regla del juega no tiene gran interés, ya que los jugadores no 
intervienen en ningún momento durante el desarrollo de la partida, 
la cual está completamente dirigida por el ZX; basta con pulsar una 
tecla después de cada tirada de dados y mirar lo que pasa. 


La línea 59 permite llamar al subprograma (1209 a 1960), que realiza 
la visualización del campo de juego, el control de la posición de los 
jugadores y la visualización de esta posición. Por otra parte, esta 
visualización volverá a realizarse durante la partida para tener en 
cuenta el desplazamiento efectuado realmente (que no es necesaria- 
mente el que indica el dado). 

La línea 55 se ocupa del cambio de jugador, y la línea 69 efectúa la 
tirada del dado. 

La línea 75 comprueba si alguno de los jugadores termina la partida. 
La línea 109 calcula un número aleatorio entre 9 y 3, que servirá, en 
caso necesario, para determinar el verdadero desplazamiento del 
jugador, enviándolo a uno de los subprogramas de “suerte”. 
Las líneas 1040 y 1005 hacen avanzar los peones, y las líneas 1820 a 
1048 vuelven a dibujar, en cada visualización, el campo de juego 
entero. 


Se pondrá en marcha el juego con RUN. Entonces se dibuja el 
campo de juego, y después aparece la visualización JR 1: .. 
Deberá pulsarse una tecla cualquiera para tener en cuenta la tirada 
del jugador número 1; no hay que inquietarse por el tiempo de 
reacción, que parecerá un poco largo. 

El desplazamiento indicado por los datos se ejecuta al cabo de un 
cierto tiempo; llegado el caso, se efectuará un segundo desplazamien- 
to: se trata del desplazamiento “suerte”. Entonces se obtendrá la 
visualización JR 2: .. 

El jugador 2 pulsará a su vez una tecla cualquiera, y así sucesiva- 
mente. 
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Al final de la partida se dará a conocer el ganador mediante una 


visualización BRAVO. 


Puede pararse en cualquier momento pulsando BREAK. 


POSIBLES EXTENSIONES: Puede ampliarse el campo de juego, introducir más riesgos, 


cambiar su naturaleza. 


También podrían escogerse, al principio del juego, las casillas 


“suerte”, 


añadir visualizaciones en consecuencia, etc, 


JUEGO DE LA OCA ALEATORIO 


PROGRAMA ZX 81 


¡PARAR LAGO 
¡ASASAN-0DO 


Es X=CODE 3 
THEN PRINT “BRAVO _”, 
NT "JR ";U+5GN 


85 PAUSE VsUzV 
94 GOSUB VsURU 
97 LET I=INT (U+RND) 

98 GOSUB T+(AND<=.5) +ULU+LEY 
¿89 GOTO CODE "mM" 


480 IF NOT J THEN LET x=INT (U» 
p4l0 17 Y THEN LET Y=INT (UsZTARN 


420 RETURN 

1090 1F NOT _J THEN LET Xxx+I*t (Xx 

+1) ¿CODE "3") 

1002 LET YsaY+J+T+ (+1 :(=CODE "3") 

19 FOR I=NOT PI TO CODE * 

2923 dl AT INT P1,I;CHRS$ (COD 
8 

1013 PRINT TAB I;CHR$ (CODE * 

CODE Cite ro 

1915 PRINT TAB I;CHR5Ss 'CODE * 

CODE “2*s(I2Y)) 

1020 NEXT 1 

1030 RETURN 


paca iii 


PROGRAMA ZX SPECTRUM 


Ll 
crorrer 
qe9993 

Pos 
PEGA 


) 
IND. 
1 


mi 
El 
E 


1 
RND+1) 
E 31 THEN PRINT 
7] Bari “JUGADOR ";J+1; Pes 
1 AB =Ba TT 


260 RETURN 

208, YF NOT d THEN LEFT 0=INT 150 
sl 

¿910 TF Y TMEN LET Y=INT (S84RND 


320 RETURN 

1908, 1F NOT y TMEN LET XaX+14 (X+ 

¿3 

1005 LET YaY+YrIz(Y+1c231) 

1610 FOR 1=0 70 31 

1020 PRINT AT 3,T;I AND_1<=9. PR 

INT AT 3,T;CHRE. ($5+1) ANO 159 

3909 PRINT'INK 1/AT 4,I;CHRS (00 
MS IDO 

Raso MPRINT INR 2;AT S,I;CHR$E ICO 

DE “MN "-93: (1313) 

1058 NEXT 1 

1668 RETUAN 


1234567: TO MNOD 


JUGADOR 1 


No 
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Nombre del programa 


NIVEL 2 


Tema y particularidades 


Sou »>.unNeo 


Un dado 

Visiones 

Más grande, más pequeño 
El electricista loco 

La carrera al 20 

Dibujo 

Dado trucado 


El juego de la pídola 
Letras 


Espía 

Enganchar los vagones 
Tirada de un dado trucado 
Orden 


Carrera de caballos 
El juego de Marienbad 
Ídern 


Mastermind 

A través 

Reinas sobre el tablero 
El juego de la vida 


Tirada de un dado, con grafismo. 

Un juego sobre las palabras, ¡para el ordenador! 
Un juego de deducción interesante, para un jugador. 
Lógico y difícil, para un solo jugador. 

Juego de reflexión, para dos jugadores o más. 
Un método original de codificación. 


Para utilizar en otros programas, si se es poco 
honrado. 


Un juego de reflexión para dos jugadores. 


Un juego de palabras bastante sencillo (dos jugado- 
res). 


Para ofrecer un ZX a su pareja y declararse en código. 
Para los más jóvenes, muy visual. 
Para revisar los conocimientos en estadística. 


Para poner en orden con un poco de astucia lo más 
rápidamente posible 


Bastante visual; un juego de azar para varios jugado- 
res. 


Un juego lógico, para dos jugadores, en una versión 
ampliada. 


Un juego de cálculo mental, para dos jugadores 
(varios niveles). 


Con cifras, pero muy clásico; un solo jugador. 
Un juego de estrategia elemental para dos jugadores. 
Un viejo problema, para ayudar a reflexionar. 
Un gran clásico; dos versiones: manual o automática. 
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Confección de una tabla 
Búsqueda de un elemento 
en una tabla 
y en una cadena 


LA INSTRUCCIÓN DIM, O INSTRUCCIÓN DE CONFECCIÓN DE UNA TABLA 


Las estructuras de tablas se utilizan muy corrientemente en programación, demostrándo- 
se incluso indispensables en un gran número de casos. Por ejemplo, si se quieren introducir 
los ingresos y los gastos de todos los días del mes (se supondrán, para simplificar, meses de 
30 días), podrían definirse 30 variables llamadas PRIMER DÍA, SEGUNDO DÍA, etc. 

Es más fácil y racional utilizar un bucle 1, l variante de 1 a 30, y una variable N(I) para los 
ingresos y G(1) para los gastos; haciendo esto, se ha utilizado, sin saberlo, una estructura de 
tabla de una dimensión, que no puede ser admitida por el ZX a menos que, previamente, se 
le haya indicado que iba a utilizarse una tabla de este tipo, mediante una instrucción 
DIM N(30) para los ingresos y DIM G(30) para los gastos. 

Los gastos y los ingresos podrían también mantenerse en una misma tabla, dándole esta 
vez dos dimensiones: por ejemplo, DIM NG (39,2) [o DIM NG (2,30)]. Así, con DIM NG 
(30,2), podrá convenirse que NG (1,1) representa los ingresos y NG (1,2) los gastos. 
También son posibles las tablas de más de dos dimensiones. 

Pueden también concebirse tablas en las que los elementos sean cadenas de caracteres y 
no números, pero entonces es indispensable precisar la longitud máxima de las cadenas 
autorizadas (es decir, el número máximo de caracteres de cada palabra). 

De esta manera, DIM NOMS (5,10) reserva 5 lugares de la memoria para palabras de 
10 letras como máximo. 


BÚSQUEDA DE UN ELEMENTO EN UNA TABLA : N(I) 


Si se tiene una tabla de una dimensión, definida con una instrucción como DIM N(30), el 
primer elemento (numérico) de esta tabla se identificará por N(I), y será manejado 
exactamente como una variable numérica ordinaria (asignación, cálculos, comprobaciones, 
etcétera). 

De esta manera, INPUT N(3) permite introducir a mano el valor del tercer elemento 
numérico de la tabla N. PRINT N(5) permitirá visualizar el quinto elemento de la misma 
tabla N, etc. 
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BÚSQUEDA DE UN ELEMENTO EN UNA CADENA : NS() 


En el Basic Sinclair, una cadena de caracteres se trata de forma algo parecida a una 
tabla, que no será útil declarar y que tiene por dimensión el número de caracteres de la 
cadena. 

Esta manera de actuar permite la fácil extracción del primer elemento de la cadena NS, 
que se denominará simplemente NS (I); presenta también la ventaja de permitir la fácil 
sustitución de un elemento de la cadena N$ por una simple asignación. 


Por ejemplo: la asignación LET NS = “BUENOS DÍAS”. 

PRINT NS(1) visualizará B, PRINT NS(3) visualizará E. Si se escribe Let NS(3) = “U”, 
se obtendrá PRINT NS, que visualizará BUUNOS DÍAS. 

Los Basic usuales no permiten esta simplicidad en el tratamiento de las cadenas; la 
instrucción correspondiente a NS(3) será MIDS(NS$,3,1); se encontrará, en cambio, más 
flexibilidad en las tablas de cadenas (difíciles de manejar en el ZX). 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Un dado 


Modalidad: FAST o.SLOW. 

Dificultad de programación: fácil. 

Categoría del juego: tirada de un dado (con grafismo). 
Dificultad del juego: ninguna. 


El programa simplemente propone la tirada de un dado aleatorio y su 
representación gráfica en tamaño grande. 


Puede fácilmente utilizarse en subprogramas, para todo tipo de 
juegos que requieran la tirada de uno o varios dados. 


La línea 14 utiliza el generador aleatorio del ZX para sacar un entero 
del 1 al 6. 


El bucle J (49-69) dibuja los bordes del dado, y las líneas 30 y 65 las 
partes inferior y superior. 

Las tres líneas 79, 89 y % se utilizan para el dibujo de los puntos. 
La línea 129 permite, en caso necesario, volver a tirar. 


Se tira el dado con RUN; el resultado se visualiza en forma 
simbólica, como en un dado real. 

A continuación se visualiza la pregunta OTRA TIRADA (S o N). Si 
se contesta S, se efectuará otro lanzamiento. 


POSIBLES EXTENSIONES: Este programa podrá utilizarse como subprograma cada vez 


que se necesite simular una tirada de dados. 
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UN DADO 


PROGRAMA ZX 81 


cL5s 


LET A=INT_(RNDHS4 


BRINT AT_S,S;" 
FOR J=6 TO 12 
PRINT AT 3,8; "Y ”: 
NEXT y 

PRINT AT 139.8: 


INT 


sa AND Rszá 
PRINT AT 17,1: “OTRA TIRADA 
Pause «es 

IF R$(1)="S" THEN FUN 


OTRA TIRADA (5 0 Mm > 


PROGRAMA ZX SPECTRUM 


5 BORDER 5: PAPER 4 

28 LET_A=INT (RND+B+1:" SEEP. 
2s.S. BEEP .08,5. BEEP .05,5. BÉ 
EP .05.S: BEER ¿05.5 

38 PRINT INK 1AT S,5;" 


40 FOR J28 TO 12 


E] 


52 PRINT IN 1 AT y INK 
so INK 2; 
50 NEXT y 


$5 PRINT INK 1/AT 13,2 
70 PRINT INK_2:AT 7,10 
AN 


3 0'A> 
88 PRINT/INK 9,10: 5. Y 
AND AS5;AT 9,12; ÁND 072: >1N 
T (A/2) 

90 PRINT INK 2;97 11.10; "NE AN 
D A»=4;AT 11,14; ANDAS» 1 
100 PRINT FLASH Í;AT 17,1; "OTRA 
TIRADA (5 ON) 
110 PAUSE 4E4 
120 1F RE(1)="S" THEN PUN 


OTRA TIRADA (5 0 N5 7 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Visiones 


Modalidad: FAST o SLOW. 
Dificultad de programación: fácil. 
Categoría del juego: dibujo. 
Dificultad del juego: fácil. 


¡El ZX permite, por primera vez, entrar en su intimidad, dejando 
entrever su propia representación del mundo! 

Se le propondrán palabras, no importa cuáles, y él contestará a su vez 
presentando una representación gráfica de lo que significan estas 
palabras. 

El juego será mucho más divertido si lo practican varias personas, y 
puede que a veces se lleven alguna sorpresa. 


Un bucle 1 (40-120) se encarga de realizar los dibujos. 

La línea 59 permite transformar en número cada letra de la palabra 
que se introduce al principio (línea 20). 

Este número será traducido a continuación en base 2 por un bucle J 
(líneas 78 a 119); según el resultado de esta transformación, se 
imprimirá un punto o no (línea 99). 


Se inicia la ejecución del programa con RUN, lo que lleva a visualizar 
la pregunta QUÉ DIBUJO. Se responde introduciendo una palabra 
cualquiera, la cual será transformada en dibujo por el ZX después de 
pulsar NEWLINE. 

Para volver a empezar, será suficiente con pulsar una tecla 
cualquiera, y se terminará con BREAK. 


POSIBLES EXTENSIONES: Puede seguirse la misma idea introduciendo elementos de 


simetría en los dibujos y añadiéndoles color. 

“Tambien puede imaginarse por este método la codificación de un 
cierto número de dibujos, que se introducirían en la máquina uno 
detrás de otro, con el fin de crear un juego en el que el ZX se volverá 
cada vez más habilidoso. También puede efectuarse un juego para 
dos personas, en el que el ZX pide encontrar la palabra que 
corresponda a un determinado dibujo, etc. 
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VISIONES 


PROGRAMA ZX 81 


10 PRINT AT SON PI,NOT PI;" 
DIBUJO :v; 

INPUT RE 

PRINT PS 

FOR I=SGN PITO LEN 
LET N=9£ (CODE RÁLI- 


(N 22) - INT 
LET_N=INT N/2 
1F Ss THEN PRINT AT 145, 


DUE 


Rs 
340 


IN-2) 
J+12 
LET U=U+SON PI 

IF J-9 THEN G2 TO 
NEXT_1 

PAYSE «Es 


STO 10 


70 


QUE DIBUJO : CUADRO 
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PROGRAMA ZX SPECTRUM 


18 PRINT AT 1,0;“0UE DIBUJO 
20 INPUT RS 

39 PAPER SOR ((LEN (R$11+AND+1 
PRINT RE 

I=1 TO LEN RS 
Nags (CODE RSITI 


Íny2) INT 
N=INT N/2 
HEN PRINT INK 3: 


71-348 


na 


AT 1+ 


Ed O Fien 60 To 70 


DaUSE eze 


BORDER 74RND: CLS 
60 TO 18 


JACQUES 
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Más grande, más pequeño 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: FAST o SLOW. 

Dificultad de programación: fácil. 

Categoría del juego: juego de deducción (para un solo jugador). 
Dificultad del juego: difícil. 


Se inspira en un principio ligeramente distinto al del MASTER- 
MIND. Se trata igualmente de adivinar un número (de 1 a 7 cifras), 
pero las indicaciones de que se dispone son esta vez, de una parte, el 
número de cifras que en el número probado son superiores a las del 
número que ha de adivinarse y, por otra parte, el número de cifras 
que son inferiores. Si, por ejemplo, el número que tiene que 
adivinarse es el 3054 y se prueba el 4251, la máquina responderá 2 
más grandes (corresponden al 4 y al 2) y uno más pequeño (el 1). 


La línea 30 no permite pedir números de más de 8 cifras. 

El número que ha de adivinarse está situado en la línea 50, en una 
variable alfanumérica X$. 

Las comparaciones con el número probado se efectúan en la línea 95 
(que comprueba si es exacto) y en el bucle 1 (129-170), donde se 
realiza la comparación “palabra por palabra”. 

La visualización de! resultado se realiza gracias a las líneas 189 y 190. 
El contador del número de intentos está en la línea 195. 


La iniciación del programa con RUN provoca la visualización de 

NÚM. DE CIFRAS. 

Se introduce un número inferior a 8 y se pulsa la tecla NEWLINE. 

Se visualiza el número de intentos, así como la pregunta NÚM. 

SUPUESTO, se responde introduciendo un número seguido de 

NEWLINE. 

Después, el resultado se visualiza bajo la forma ...CIFRAS MÁS 

GRANDES y ...CIFRAS MÁS PEQUEÑAS. 

Si el número no es exacto, se vuelve a empezar (teniendo cuidado de 

introducir solamente números que tengan las mismas cifras que las 

que deben adivinarse). 

Si se ha encontrado el número, el ZX visualizará ENCONTRADO 
N ... INTENTOS. Después, OTRA PARTIDA ¿(S o N)?; se 

tecleará S, seguido de NEWLINE, para volver a empezar una nueva 

partida. 


POSIBLES EXTENSIONES: Como en el MASTERMIND, se puede imaginar un juego 


parecido con letras, colores o también utilizando otros símbolos. 


También puede preverse dejar jugar al ZX, el cual tendrá entonces el 
papel de descifrador. 
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MÁS GRANDE, MÁS PEQUEÑO 


PROGRAMA ZX 81 


5 CLS 
10 PRINT “NUMERO DE CIFRAS “; 
20 INPUT C . 
30 TF C>8 THEN RUN 
49 PRINT C 

45 LET E=SGN PI 
SO LET X$=STRS (INT 

104 (0-E3)) 
60 PRINT AT 5,1; 


79 PRINT AT 8,1; 
39" INPUT P$ 


90 PRINT P$ 
PPXS THEN 60 TO 200 


(ANDA EACH 
INTENTO No “; 
NUMERO SUPUES 


A 
FOR I=SGN PI TOC 
JE PSIDOXB CT) THEN LET ASA 


JE PRIDE CD) TMEN LET B=B 


NEXT_1 

180 ASENT AT 19,18; 
5 GRANO! 

199 PRINT AT 15,1;B; 
s AOESUEÑAS" 

o 5 ESOON PI 


CIFRAS MA 
CIFRAS MA 


ENCONTRADO * 
“OTRA PARTIDA 


S.1; 
INTENT 
B,1; 
* THEN RUN 
NUMERO DE CIFPAS 4 
INTENTO NO 4 


NUMERO SUPUESTO 567 


2 CIFRAS MAS GRANDES 
2 CIFRAS MAS PEQUENAS 


PROGRAMA ZX SPECTRUM 


CLs 
10 PRINT “NUMERO DE 
20 INPUT € 
30 IF C>5 THEN RUN 
29 PRINT C 
4S LET E=1 
58 LET X$=STRS ANDE 
or eS TDR 15) 
PRINT INVERSE 2,AT 5 
vi FLASH 1:E 
BRInt AT 871, C NUMERO SUPLE 


INPUT sl 
PRINT PS 
IF P$=X$ THEN 60 TO 
LET Asa 

LET BsA 

FOR I=1 TO C 
15 PEIDOIXB (DO 


IF PAID OAG DO 


CIFRAS 


LINT so+ 


200 


THEN 
THEN 


LET As 
LET B= 


38 PRL" PAPER 4 QT 13,18: 


3 PRINT PAPER AT 15,1,B,” 
¡S MAS PEQUEÑAS” 
AIN BEER 0.2,10 


CLg 

PRINT AT edi ENCONTRADO * 
Xx EN O INTÉNTOS" 

E penyÉo AT 8,1; "OTRA PARTIDA 
ñ » 

Fleór as 
IF R$=" 


3" THEN RUN 


NUMERO DE CIFRAS 4 


NUMERO SUPUESTO 3587 


2 CIFRAS MAS GRANDES 
2 CIFRAS MAS PEQUENAS 


i 


INT 


5 


A 
B 


[o] 
le 
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El electricista loco 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: FAST. 

Dificultad de programación: difícil. 
Categoría del juego: solitario. 
Dificultad del juego: bastante difícil. 


Una casa con 10 ventanas numeradas del Y al 9 aparece en la 
pantalla. 

El jugador deberá, en cada intento, manejar uno de los interruptores 
indicando su número (del Y al 9). 

En principio, la ventana correspondiente debería apagarse, pero 
también es posible que otra se encienda (o se apague). Se trata, por 
supuesto, de conseguir que se apaguen las 10 ventanas con el menor 
número de intentos. 


Una tabla A, en la línea 15, contendrá el estado (encendido o 
apagado) de las 10 ventanas. 

Los bucles 1 (29-59) y L (62-70) dibujan la casa en su estado inicial. 
La línea 85 examina si todo está apagado, en cuyo caso se bifurcará a 
la línéa 229 para visualizar el número de intentos. 

La línea 109 espera la indicación del interruptor que se ha operado. 
Las líneas 119 a 189 definen el resultado de la operación. 


RUN provoca la visualización de la casa con todas las ventanas 
encendidas. 

A la pregunta INTER se contesta indicando el número de interruptor 
que se utilizará, seguido de NEWLINE. El resultado de la operación 
se visualiza entonces en la pantalla (las ventanas se enciegden ose 
apagan). 

Se continúa así hasta que todas las ventanas se hayan apagado, 
obteniéndose entonces la visualización del número de intentos 
realizados. 


POSIBLES EXTENSIONES: Puede mejorarse el grafismo con la utilización, si es posible, 


del color. También puede definirse un juego para dos personas, 
aumentar el número de ventanas, modificar la fórmula que define el 
encendido o el apagado, etc. 
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EL ELECTRICISTA LOCO 


PROGRAMA ZX 81 


18 LET 5=SGN PI 
12 LET M=NOT PI 
15 DIM A(CODE "e, 
30 FOR 1-5 TO CODE 
PRINT AT NOT PI.1 "MY".AT OS 
e? ¿QT S+S,1; AT INT PI,1 
INT PI4S,1;: "MY 
$0 NEXT_T 
$8 LET T=NOT PI 
$2 FOR I=5 TO CODE 
$4 LET TaT4A(TI 
65 PRINT AT S+5,1+1+5; 
70 PRINT AT 545 I+I45; AND 
AU) =NOT PIZAT INT OPIAS,1+I+S5,CH 


RS (15541) 
08 NEXT 1 
88 IF T=CODE "*" THEN GOTO COD 
E FAST” 
PRINT AT CODE "£”,S; “INTER 
INPUT ON 
LET N=N45 
LEY MaM+5 
TF> AIN) =3 THEN GOTO CODE “C 
LET.A(N)=5 
LET R=TAN (RND+NZAND-N) -SIN 
iS RM A 
APO LET N=INT (CODE “e"*(R-INT 
55 IE NOT ON THEN LEY N=INT_(5+ 
DE "== SRND) 
0379 15 ALN=S THEN GOTO CODE “C 
100 LET A(N»=S 
199 GOTO CODE "y" 


LET ALNI=N PI 
209 BRENT AT CODE ve”.simi0 INT 
tos" dl 


INTER 


a 


PROGRAMA ZX SPECTRUM 


19 LET S=1 
12 LET M=9 
15 DIM ACIÓ) 


20 FOR 1=5 To 23 
30 PRINT_INK 5; AT 8.1, 
UAT 55,1; 3 


1 


62 FOR 1=5 TO 18 
64 LET T=TAALI) 
. 65 PRINT INK S¡AT 5+5,2+1+5.“N 


70 PRINT PAPER 2;AT 5+5,2%1 
« “AND A(T)=0;AT 4,2% T+ 
3; BRIGHT 1;1-1 

88 NEXT 1 

85 IF T210 THEN GO TU 

99 PRINT AT 12,S;* 
TERRUPTOR 

188 INPUT N: BEÉP 1,10 
LASH 1; INK 3¿AT 12,25:N 
110 LÉT N=N4S 

120 LET M=M4+5 

198 IF _A(N)=5 THEN GO TO 200 
140 LET A(N)=S 

150 LET R=TAN (RND+N/RND-N) -5IN 
(RND/N) +33B4SIN (04N) 

169 LET N=INT_ (104 (R=-INT A) 
165 IF NOT N THEN LET N=INT 
134RND) 

178 IF _A(N)=5 THEN 60 TO 200 
189 LET_AÍN)=S 

198 GO TO 6e 

209 LET A(N)=0 

210 GO TO 158 

229 PRINT FLA: 
NTRADO EN "¡Mz 


223 
“NUMERO DE IN 


PRINT F 


(S+ 


ES 


15AT 15,55" 
INTENTOS 


ENCO 


NUMERO DE INTERRUPTOR : 7 
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La carrera al 20 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: SLOW o FAST. 

Dificultad de programación: fácil. 

Categoría del juego: lógica (para dos jugadores o más). 
Dificultad del juego: mediana. 


Para este juego pueden idearse varias reglas, pero aquí sólo hemos 
considerado la regla normal para dos jugadores, que hace que sea un 
juego parecido a los de desplazamiento o de cerillas: 4 montones de 
20 estrellas aparecen al inicio de la partida, y cada jugador puede 
coger tantas estrellas como quiera, pero en un solo montón a la vez. 
Se considera perdedor el que coja la última estrella. 


El bucle 1 (30-50) dibuja 4 filas de 20 estrellas. 

La variable F, dimensionada en la línea 69, servirá para registrar el 
número de estrellas cogidas en cada línea. 

La variable T contendrá el número total de estrellas sacadas. 
El bucle 1 (70-99) imprime los números de línea. 

La línea 125 controla que existan suficientes estrellas en la línea 
indicada. 

Los bucles 1 (179-219) y J (189-209) borran las estrellas; la línea 249 
comprueba el final de la partida. 


Iniciar el programa con RUN; se visualiza el campo de juego, y 
después aparecen las inscripciones JR 1 y ¿LÍNEA, CASILLAS? Se 
responde introduciendo un número de línea (entre 1 y 4), seguido de 
NEWLINE, y del número de estrellas que se deseen sacar, seguido 
de NEWLINE. En este momento se borran las estrellas y es el turno 
del segundo jugador. 

La partida termina cuando se quita la última estrella, con el anuncio 
del jugador que ha ganado. 


POSIBLES EXTENSIONES: Además de una mejora en la calidad del gráfico y de los 


controles, pueden considerarse numerosas variantes, modificando, si 
es necesario, las reglas de salida: puede autorizarse a sacar solamente 
'un número impar de estrellas, de alternar par e impar, decidir al azar 
el número de estrellas a sacar o jugar varias personas, etc. 
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LA CARRERA AL 20 


PROGRAMA ZX 81 


19 LET Az5GN PI 
38 FOR I=A TO 20 


55 LET T3NOT PI 

59 DIM F(4) 

70 FOR I=8 TO 4 

278 PRINT AT I+1+A,A:1 

50 LET F(1)2NOT Pi 

90 NEXT _I 

95 LET B=A 

190 PRINT AT 12,8: "JUGADOR “:B 
¿10 PRINT AT 14,A: “LINEAR, CASILL 


120 INPUT L 

123 INPUT C 

125 IF C+F(L)>CODE 
TO 118 

165 LET F(L)RP(L) +0 
167 LET T=T+C 

170 FOR I=R TO 4 
198 FOR J=NOT PI TO F(T) 

190 PRINT AT I+I+M,J+INT PI;" 


A 


THEN 60 


210 

220 

270 1F BsINT PI THEN LET Bañ 
40 IF _T«S0 THEN GO TO 100 
300 
319 
ANA! 


LS 
RÍNT “EL JUGADOR ";B;" HA 


1 REELERRARAE RIOR A 
2 REPARAR 
DT AARAFRRRRRA NE RIAS 
4 AARRARARAAA 
JUGRDOR E 


LINEA, CASILLAS? 


PROGRAMA ZX SPECTRUM 


0t8s 
33 
EN 


3 


883X3828H 
dia 


108 


BRAAhI3aR 
pa 


FTUUGADOR "¿B 
5 "LINER,CASILL 


>4 THEN 60 TO 


E 

E 
35 oa 
oc 33d 


25 


zo 
de 


THEN G0 TO 118 
+0 


EE 
3 


190 PRINT BRIGHT 1; PAPER I+1;A 
T_ RITA ID ¡NE 
200 NEXT y 


210 NEXT 1 

220 BEEP 1,10: LET B=B+A 

230 IF Ba3 THEN LET B<A 

249 IF _T:50 THEN GO TO 100 

300 CLS 

310 PRINT “EL JUGADOR “;B;” HA 
GANADO": BEEP 1,8 


1 rro HN 
LD rrrrrr rar MB 
3 + AM 
+ + HI 
JUGADOR 2 


LINEA, CASILLAS? 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Dibujo 


Modalidad: SLOW o FAST. 

Dificultad de programación: fácil. 

Categoría del juego: dibujo. 

Dificultad del juego: mediana. 

Es sobre todo un método algo original de codificación de un dibujo, 
que tiene la ventaja de poder utilizarse en algunos programas, 


La codificación del dibujo, en el programa retenido, está situada en 
una variable AS, que está definida en la línea 19. 

Llegado el caso, se podrán intentar otros dibujos introduciendo 
directamente sus códigos: basta con modificar la línea referida por 19 
INPUT AS. 

El bucle N (29-59) descifra la variable AS. 

La línea 49 determina las posiciones del principio de la escritura. 


La línea 45 detecta el carácter 0, que sirve para indicar el retomo a la 
línea. 


Deberá haberse definido previamente el dibujo, por una variable A$, 
utilizando los caracteres gráficos y proporcionando la posición de 
impresión de cada carácter con respecto al principio de la línea, con 
una cifra de 1 a 9 o con una letra (A: 10;B:11;,C:12;etc.). 
El carácter 9 indicará el paso a la línea siguiente. 


POSIBLES EXTENSIONES: La función PLOT permitirá definir un gráfico más correcto; 


también podrán considerarse algunas indicaciones para el color, 
imaginar un juego en el que cada jugador intentaría codificar un 
dibujo dado lo más rápidamente posible, etc. 
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DIBUJO 


PROGRAMA ZX 81 


18 


a Co Je Na Ou En Ka Ma Baal 0 

26 FOR N=SGN PI TO LEN AS 

30 PRINT ASIN) AND (CODE ASIN) 
<=10 OR CODÉ AS(N)>=123) 

40 IF CODE AS(N)>=29 AND CODE 
AS(N)<263 THEN PRINT TAB (CODE A 
SÓN) -28); 

45 TF CODE AS(N)=28 THEN PRINT 


50 NEXT ON 
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PROGRAMA ZX SPECTRUM 


38 PRINT INK 2/AS(N) 
ASIN) >=128 AND CODE ASIN) <=143) 


AND (CODE 


48 IF (CODE A$(N)>=49 AND CODE 
ASIN) <=57) OR (CODE ASIN) >=65 A 
NO_CODE ASIN) <=98) THEN_PRINT IN 
K 2;TAB_(CODE ASIN) -48-7+ (CODE A 
$(Nj>=65)) 

45 IF CODE A$(N)=48 THEN PRINT 


50 NEXT N 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Dado trucado 


Modalidad: FAST. 

Dificultad de programación: fácil. 
Categoría del juego: tirar los dados. 
Dificultad del juego: fácil. 


Se intentará fabricar un dado trucado según la propia conveniencia. 
El método que aquí se propone consiste en definir al principio una 
probabilidad de realización para cada tipo de tirada (es decir, 
la probabilidad de obtener un 1, un 2, un 3, etc., que cada una de las 
probabilidades estén comprendidas entre Y y 1 y que la suma de todas 
las probabilidades sea un número muy cercano a 1). 


Utiliza el generador aleatorio del SINCLAIR ZX, que se supone de 
calidad conveniente (si es necesario, podrá utilizarse fácilmente 
cualquier otro generador). 

El bucle 1 (20-95) se ocupa de la entrada de cada probabilidad, con 
verificación de cada entrada y del total (línea 66); cada probabilidad 
se guarda en una variable indexada E (I) : línea 49 del programa. 
La tirada del dado trucado se realiza con la ayuda de otro bucle 
1 (129-149), y la línea 130 permite trucar el dado. 

El resultado se visualiza gracias a la línea 159. 

Podrá realizarse nueva tirada con la simple pulsación de una tecla 
(líneas 160 y 179). 


Después de la puesta en marcha de la ejecución con RUN, se obtiene 
la visualización de la pregunta PROBABILIDAD DEL DADO 1, a 
la cual se responde con un número comprendido entre f y 1. Es 
conveniente no olvidar que el total de todas las probabilidades 
introducidas no deberá en ningún caso pasar de 1.1 (se tolera .1). 
Podrán visualizarse mensajes de error, y llegado el caso podrá volver 
a iniciarse el programa. 

Cuando todas las probabilidades estén definidas, se efectuará 
automáticamente la primera tirada, y bastará con pulsar una tecla 
cualquiera (excepto BREAK) para realizar las tiradas siguientes. Se 
termina el programa pulsando BREAK. 


POSIBLES EXTENSIONES: Evidentemente será muy tentador utilizar astutamente este 


pequeño programa para mejorar las posibilidades de ganar en un 
juego de azar en el que se tiren los dados. Entonces podrá 
considerarse la fijación de los datos que definen el dado trucado en 
una variable AS, Étc. 
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“También podrá considerarse la presentación de los resultados 
correspondientes a una serie de tiradas de dados bajo una forma 
espectacular, que muestre el trucado de los dados. 


DADO TRUCADO 


PROGRAMA ZX 81 


18 LET P=NOT PI 
15 DIM E(6) 


60 TF E(I) NOT PI OR ElI1>S5N 

PICOR P>1.1 THEN 6) TO 509 
70 PRINT AT NOT PI,S*L-5; “DADO 
"¿IJAT SGN PI,S+I-SiElI) 


80 NEXT 1 

98 IF P«.9 THEN RUN 

95 PAUSE 60 

110 LET N=INT cd 
129 FOR I=36N PI TO 

ANO ANDSELT) THEN 60 


149 NEXT 1 
¿38 PRINT AT INT PI,NOT PI;“TIR 


168 PAUSE 4ES 

178 GO ro 118 

209 PRINT “IMPOSIBLE : 0 
210 LET P=P-E(I) 

215 PAUSE 59 

229 PRINT AT 4,NOT PI." 


230 60 TO 39 


DADO DADO DADO DADO DALO DADO 5 
0.1 0.3 0.2 .0S .05 2.3 


TIRADA :1 


PROGKAMA ZX SPECTRUM 


6 
“PROBA 


50 IF ED) E(D 51 0R Pri. 
1 THEN GO TO 

70 PRINT PAPER S;AT 0,5+I-5;"D 
ADO “¡I¿AT 1,5+1-5;E(1) 

80 NEXT 1 

99 IF P<-9 THEN RUN 

35 PAUSE 60 

199 RANDOMIZE 

119 LET N=INT_ (8ND+6+1) 

128 FOR I=1 TO 

158 FE NZTAND AND>E(I) THEN 60 
To 118 

140' NEXT_Y 

158 PRINT PAPER 2; BRIGHT 1; IN 
0, "TIRADA -; INVERSE 1; 

*; FLASH 1: INK 7, 

ví INK 1; FLASH 0;" 


160 PAUSE 4É4 
178 GO TO 110 
208 PRINT FLASH_1;" IMPOSIBLE 

“: BEEP .3,0: BEEP .3 


"219 LET P=P-E(D) 
215 PAUSE 59 
220 PRINT AT 4,0;" 


238 GO TO 38 


o 
E 
'D! 
) 
e 
4] 


ASH 
ADO 
1 
Em 
8 0R 
208 


DADO DADO DADO DADO DADO DADO 6 
0.2 0.3 0.2 0.1 0.1 0.1 


TIRADA MO 
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El juego de la pídola 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: SLOW o FAST. 

Dificultad de programación: fácil. 

Categoría del juego: de reflexión (para dos jugadores). 
Dificultad del juego: fácil. 


A pesar de que la idea es muy simple, no es necesario descubrir una 
estrategia conveniente. Se dispone de tres ovejas negras y de tres 
ovejas grises, representadas por cuadrados, que ocupan 8 casillas; 
las ovejas pueden desplazarse de una casilla a otra libre. Podrán 
intervenir diversas reglas, según el propio interés por una u otra; se 
obliga a las ovejas a colocarse en la primera casilla disponible, 
saltando, llegado el caso, por encima de las ovejas contrarias, o bien 
se las deja escoger la casilla de llegada, lo que puede hacer las 
partidas interminables. 


El bucle I (50-89) inicializa una tabla A(I) que contiene las 
posiciones de las ovejas. 

El bucle I (106-149) dibuja el terreno de juego y las ovejas. 
Las líneas 159 a 19% se ocupan del texto y de las entradas. 

La línea 195 controla la validez de la jugada. 

La línea 229 realiza el cambio de jugador. 


Se empieza la ejecución del programa con RUN. Entonces se obtiene 
la visualización JR1, que indica el número de jugador, seguida de la 
pregunta ¿PRINCIPIO, FIN? 

Se contesta indicando el número del peón que ha de desplazarse, 
seguido de NEWLINE, y después el número de la casilla de llega- 
da, seguida de NEWLINE. En este momento se efectúa el 
desplazamiento; el segundo jugador procederá de la misma forma. 
En principio, el vencedor será el que consiga situar a sus tres ovejas, 
una al lado de otra, en los lugares que inicialmente ocupaban las de 
su adversario. 


POSIBLES EXTENSIONES: Se empezará por añadir un control al jugador que gana. 


Igualmente puede mejorarse la presentación, si se dibujan ovejas 
auténticas, numerándolas para que el juego sea más atractivo e 
imponiendo un determinado orden de llegada. 

Por último, podrá definirse una estrategia para el ordenador, fijando 
las reglas. 
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EL JUEGO DE LA PÍDOLA 


PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
10 LET A=5GN PI ci5 
28 OIM AS) 
38 LET A(SGN PIDZNOT A 
40 LET A(S)=NOT A 
50 FOR I=A TO INT PI 
69 LET A(A+T)=A 
70 LET_A(44+1)=-A 
$9 NEXT I 
90 LET H=A 


198 FOR I=A TO 8 

110 PRINT AT 7,INT FI*I+A;1 
115 PRINT AT OS ¿INT PIsT+A;" > 

THEN PRINT AT S,I 120 IF ALI 


128 1F AC REN ORINT INR 2; 
NT PIFI+A; AT S,3e1+n; 

130 _1F A(I) <A THEN PRINT AT OS, 198 _1F ALT: THEN PRINT INK 4 
INT PIEI+A; ¿AT 5,3418; W 

140 NEXT 1 140 NEXT 1 

150 PRINT UAT 11,56N PI: “JUGADOR 150 PRINT PAPER 4; FLASH 1;AT 2 


1,1; "JUGADOR 2" 


Íse te NOT (H-A) THEN PRINT 160 IF NOT (H-0) TMEN PRINT PAP 


11.SGN PI; "JUGADOR 1” ER 2; FLASH 1;AT 11,1; "vUGADOR 1 
170 PRINT “PRINCIPIO . FIN 7 y 

188 INPUT O 178 PRINT "PRINCIPIO . FIN 7%: 
198 INPUT F BEEP 1,12 

195 IF A(D) (mM OR AFI CoNOT MT 189 INPUT D 

HEN 60 TO 150 198 INPUT 

200 LET A(D)=NOT A 195 IP ELO) <oH OR ALE) CONOT AT 
219 LET ALF)=A4H HEN 60 TO 156 

220 LET_H=-H 209 LET A(DI=NOT A 

230 GO TO 100 210 LET AF) An 


220 LET H=-4 
238 GO TO 100 


* 7 e . .. nu .... 
1294556758 11.2.0304567 23 
JUGADOR 2 JUGADOR 1 
PRINCIPIO , FIN ? PRINCIPIO . FIN 7 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Letras 


Modalidad: SLOW o FAST. 

Dificultad de programación: fácil. 

Categoría del juego: de reflexión (para dos jugadores). 
Dificultad del juego: mediana. 


La regla está inspirada en un juego muy conocido en Francia, que se 
practica especialmente en una emisión de la televisión (la cifras y las 
letras). 

El ZX escoge al azar un cierto número de símbolos (vocales y 
consonantes) del alfabeto latino, y cada uno de los jugadores deberá 
indicar la longitud de la palabra que haya logrado obtener (¡el 
aparato no comprueba si la palabra es correcta!). 

La puntuación total de cada jugador se visualiza después. 


El bucle I (29-40) escoge del alfabeto entre 7 y 12 letras en función de 
la variable aleatoria L, tomada en la línea 19. 

Para evitar que hayan demasiadas consonantes se utiliza una astucia 
en la línea 30, que consiste en volver a sacar al azar información de la 
tabla AS, que contiene las vocales (pueden obtenerse más o menos 
utilizando otros RND). 

El bucle 50-100 pide a cada jugador la longitud de su palabra. 
Las líneas 119 y 12% comparan los resultados y totalizan la 
puntuación de cada jugador, que se visualiza por la línea 130. 


Se pone en marcha la ejecución del juego con RUN. 

En este momento se visualizan las letras, y después la pregunta JR 1. 
LONG, a la que contesta el primer jugador con la longitud de la 
palabra que ha obtenido (la corrección de la palabra deberá, sin 
embargo, estar controlada por el otro jugador); el jugador 2 hará lo 
mismo, y la puntuación de ambos jugadores será visualizada. 
Para continuar la partida bastará con pulsar cualquier tecla (excepto 
BREAK, que permitirá acabar el juego). 


POSIBLES EXTENSIONES: Podrá introducirse una contemporización antes de pedir las 


respuestas a los jugadores. 

También podrá introducirse no sólo la longitud de la palabra sino 
también la misma palabra; el adversario deberá entonces responder a 
la pregunta ¿CORRECTA O NO? 

Puede ampliarse el juego a más de dos jugadores. ¿Y por qué no 
intentar definir un juego contra el ZX, al cual se le habría 
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introducido antes una lista de palabras bastante larga, de la que 
visualizaría las letras en desorden, con algunas letras de complemen- 
to escogidas al azar? 


LETRAS 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 

5 HET S=NOT PI S LET $=0 

LET JuS 7 LET J=S 
18 LET L=INT C(6+RND+7) 19 LET L=INT_(G+4RND+7) 
15 LET AS="AEIQUE* 15 LET As="AEIQUE" 
38 FOR I2SCN PI TO L 29 FOR 1=1 TO L 
308 PRINT AT _2,NOT PI: "LETRAS 38 PRINT AT 2,0; "LETRAS "¡AT 
AT 2,7+1+I:CMAg INT ¡256:4RAND+39 2,7+2+1;CHRS_INT_(26%RAND465) ; AT 
AT 2 7+IeI;ABCINT (SÍAND+SGN P 2,7+2+1,A$ (INT (SFRNO+1)) AND RN 
) ANO RND<. 4 D<.4 
48 NEXT 1 40 NEXT 1 

LET I35GN PI SO LET 1=1 

PRINT AT S,NOT PI; “JUGADOR 68 PRINT AT 5,0; “JUGADOR ";1; 

" LONGITUD 7?" LONGITUD 2" 

INPUT L/ 78 INPUT L. 

XP I=SGN PI THEN LET Pzi 88 IF_121 THEN LET P=L 

LET IST+SGN PI 98 LET_I=I41 


IF IZINT PI_THEN 60 TO 60 
LET S=3+(P AND P>1) 

LET J=J$ (LAND L>P) 

PRINT "JUGADOR 2:“55;" 


JU 


190 IF 1(3 THEN GO TO $50 
119 LET S=5*(P AND P>L) 
120 LET Y=Je(L AND Ls) 


138 PRINT “JUGADOR 1: "35," JU 


GADOR 2:",J: BEEP 1,12 
140 PAUSE «Es 148 PAUSE 4E4 
150 CS 158 CLS 


159 60 TO 18 


168 GO TO 18 


LETRAS : EEEVELAMOSA 
LETRAS : VIDOODHOXNOM 
JUGADOR 2 LONGITUD 7 
JUGADOR 2 LONGITUD 7 JUGADOR 1:5 JUGADOR 2:09 
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REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Espía 


Modalidad: FAST o SLOW. 

Dificultad de programación: fácil. 
Categoría del juego: juego de reflexión. 
Dificultad del juego: fácil. 


El programa puede servir, simultáneamente, de codificador y de 
descifrador de mensajes secretos, siguiendo un método muy fácil 
de emplear en este tipo de aparato. 

Un pequeño generador aleatorio, situado al final del programa, es 
utilizado para modificar de manera arbitraria cada letra del mensaje; 
deberá tenerse cuidado de utilizar siempre el mismo número 
(núcleo), para empezar la codificación o el desciframiento de dos 
mensajes idénticos. 


El núcleo inicial (que será un entero cualquiera) se introduce en la 
línea 20, y el mensaje en la línea 49. 


Las líneas 59 y 60 permiten escoger entre las opciones de codificación 
o de desciframiento. 


El bucle 1 (90-149) se utiliza para efectuar la codificación o el 
desciframiento. 


La línea 110 llama al generador aleatorio. 
La línea 129 realiza la transposición de las letras. 


Las líneas 123 y 125 verifican que se esté dentro de los límites 
autorizados. 


Los resultados se imprimirán por la línea 159. 
Las líneas 1000 a 1939 contienen el generador. 


Poner en marcha el programa con RUN. 

Introducir a continuación un entero N, que servirá de núcleo para el 
generador (habrá que guardarlo para el desciframiento). 
Después teclear el mensaje seguido de NEWLINE. 

Escoger la opción C para CODIFICAR y la opción D para 
DESCIFRAR, y después pulsar NEWLINE. 


El mensaje codificado o descifrado, según el caso, será entonces 
visualizado. 


POSIBLES EXTENSIONES: La codificación podrá ampliarse a otros signos, además de las 


letras del alfabeto; utilizar, eventualmente, varios generadores; 
introducir en el mensaje una codificación del o de los números que 
hayan servido de generadores, etc. 
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PROGRAMA ZX 81 


19 PRINT “CODIGÓ :*; 

20 INPUT N 

22 PRINT ON 

25 LET ARSGN PI/N 

38 PRINT “MENSAJE -"; 

40 INPUT AS 

42 PRINT AS 

56 PRINT “(CIODIFICAR O (D:ESC 


$0 INPUT E$ 
62 PRINT RAS 
90 FOR I=SGN_PI TO LEN AS 
95 LET T=C00E ÁS (1) 

119 60 SUB 1000 
120 LET T=T+A+((RS= 


123 IF T>63 THEN LET T=T-25 
125 IF 1:33 THEN LET T=1426 
139 LET ASCII) =CHRS (7) 


CREDO 


140 NEXT 1 

159 PRINT "RESULTADO .“;Rsji 
1000 LET A=(A+PI) 243 

1010 LET A=A-INT A 

1020 LET A=INT (28+A+5EN PI) 
1038 RETURN 


NUMERO DE LETRAS (DE 1 4 121 5 
PRINCIPIO :AEFDBC 
FINAL ABCOEF 


RESULTADO 2 :BCDFEA 


PERMUTACION :2 


RESULTADO :BCDFEA 


CODIGO : 1234 

MENSAJE ¿PÉLIZ CUMPLEANOS 
(CIODIFICAR O (DIESCIFRAR .C 
RESULTADO : JUMAN: LIN+ZFIBPB 
CODI: 1234 

MENSAJE JUMRN; LINYZF JBPE 
(CIODIFICAR O ID/ESCIFRAR 0 
RESULTADO : FELIZTCUMPLEANOS 


PROGRAMA ZX SPECTRUM 


18 ORINT Cope cn; 
28 INBUT N- PRINT ON 

25 LET A=1/N 

38 FRINT "MENSAJE: ” 

40 INPUT AS: PRINT INK S:AS 
59 PRINT “(iCI1ODÍFICAR O ¿LIESC 


58 INPÚT RS: PRINT RS 

98 FOR 1=1 To LÉN As 

95 LEY_T=CO0E A$(1) 

118 SO suB 1088 

120 LET T=T+AR (RGC) (RES 


123 IF T>90 THEN LET T=T-26 
125 IF 71:68 THEN LET T=T+*26 
138 LET_ASI1) =CHRS (7) 

140 NEXT 1 

158 PRINT “RESULTADO :“: INK 2; 
AS. BEEP 1,10: BEEP 1,4: STOR 
1909 LET AS(A+PII1O 

1018 LET A=A-INT A 

1020 LET A=INT (26+R+1) 

1938 RETURN 


cobIdb 1234 

MENSAJE ¡FELIZ CUMPLERNOS 
(CIOPIFICAR O (D)ESCIFRAR 
RESULTADO > JUMRN; LINYZFUBPE 
coDÍ 1234 

MENSAJE. JUMRN;LINYZF BPE 
(CIODIFICAR_O (DIESCIFRAR :D 
RESULTADO :FELIZTCUMPLEANOS 


CODIAD 1234 

MENSAJE -HASTA LA VISTA 
ICODIFICAR O (DIESCIFRAR :C 
RESULTADO :LSTCO;UO;EUTCO 
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Enganchar los vagones 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: FAST o SLOW. 
Dificultad de programación: fácil. 
Categoría del juego: solitario. 
Dificultad del juego: fácil. 


Se trata de enganchar lo más rápidamente posible la locomotora a su 
vagón, que aparecen al principio de la partida en dos sitios más o 
menos lejanos de la pantalla. Para ello deberá desplazarse la 
locomotora, indicando la serie de movimientos que tienen que 
efectuarse (bajo forma codificada : A para una casilla hacia arriba ; 
B para una casilla hacia abajo ; D para una casilla hacia la derecha, 
e I para una casilla hacia la izquierda). Se tecleará por ejemplo: 
BBIDAAA. 


Las líneas 5 y 14 dibujan la locomotora, la línea 24 el vagón y las 
ruedas están en la línea 39. 

La posición inicial de la locomotora está definida por las líneas 49 y 
50, y la del vagón por las líneas 60 y 79. 

La línea 80 evita que inicialmente estén demasiado cerca uno del 
otro, 

La línea 199 realiza la visualización del vagón, y la línea 11f la de la 
locomotora. 

La comprobación del final está en la línea 115. 

Los movimientos que hay que efectuar se introducen en la línea 139, 
en una variable alfanumérica R$, y son descifrados en un bucle 
1 (140-176), para ejecutarse en las líneas 189-199. 


RUN permite visualizar las posiciones de salida de la locomotora y 
del vagón. 


Se teclea la serie de desplazamientos que hay que efectuar bajo la 
forma DDDAAABAII, seguido de NEWLINE. 


La locomotora se visualiza en su nueva posición, y se vuelve a 
empezar hasta que se enganche el vagón. 
Entonces se obtendrá la visualización del resultado. 


POSIBLES EXTENSIONES: Será interesante prever la pérdida de la partida por accidente, 


si en el curso del desplazamiento la locomotora colisiona con el 
vagón. 

También podrán preverse varios vagones y un orden de enganche, 
jugar varias personas con varias locomotoras, dibujar las vías del 
tren, introducir obstáculos que tengan que rodearse obligatoriamente 
por un cierto lado, etc. 
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ENGANCHAR LOS VAGONES 


UC ARND) 
"3 RND) 45 


+RND? 
ARNO) +5 


NP 
¿9 TP ABS (LX) ca THEN Go TO 


98 CLS 
190 PRINT AT UX,UYBH:AT UX+SGN 
PI,WY;C$. 
310 PRINT AT LX-SGN PI,LY;OS; AT 
LOLVIASAT LX+SÓN PI,LY+SGN PI 


5cs 
115 1% LX=4X AND WW=LY=INT PIT 
HEN GD TO CODE "ABS 

"BGN PITO 


120 PRINT AT CODE 
AMINO A SEGUIR (DIIA 


136 LET NaN+SGN PI 
1409 FOR I=5GN PI TO LEN R$ 


ESO LETARGO CB) (RG LD 
ABO LET VAYA (RG OD (RBD 
179 NEXT 1 

189 LET LX=Lx+X 

198 LET LYRLY+ Y 

280 co ro se 

219 PRINT AT CODE “=",SGN PI: "B 
BAYO ; ENCONTRADO EN :ÍN;" INTEN 


e 


CAMINO A.SEGUIR (DITA...i 


PROGRAMA ZX SPECTRUM 


LET LY=INT (254RND5 

LEFT LX=INT (17+RND) +1 

LET UY=INT (254RND> 

LET UX=INT (17+RND) +1 

TF ABS 1LX-UX) <4 THEN GO TO 


BORDER 6: PAPER 4 CL5 
PRINT INK 2;AT UX,7,B4; IN 
K 0¡AT UX+1UY;CS 

118 PRINT ÍNK SAT Lx-1,LY;DS;A 
TAX, LVG AS; INK O ¿AT LX+d LY+1, 0 


s 

115 IF LX=4X AND UY=LY-3 THEN G 
o TO 218 

120 PRINT AT 21,1;"CAMINO A SEG 
VIR (DITA...) " 

139 INPUT AS 

132 LET x=8 

134 LET Y=X 

136 LET N=N+1 


A5OLLET, XnXs An AND Lx c2 
Prima "AND Xx 20): BEEP 0. 
188 Ler Y=YS (RG CI) 2D" AND LY<2 


8) -(R5(1)="I" ANI 
178 NEXT 1 

188 LET LX=1xeX 
190 LET LY=LY+Y 
200 G0 TO 99 
218 PRINT FLASH 1¿AT _21.1:"BRAU 
O _¿ ENCONTRADO EN "; BRIGHT 1,N; 
BRIGHT 0;" INTENTOS”: BEEP 1,12 


D LY>0) 


a 


CAMINO A SEGUIR (DITA...) 
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Tirada de un dado trucado 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: FAST. 

Dificultad de programación: mediana. 
Categoría del juego: de reflexión. 
Dificultad del juego: mediana. 


Toma la idea de un programa anterior a éste (DADO TRUCADO), 
en una aplicación estadística: se elabora un dado voluntariamente 
trucado, que va a tirarse un cierto número de veces, y se prepara una 
tabla con los resultados. 


Las probabilidades que se desean en cada tirada se introducen por un 
bucle 1 (20-80), con todas las verificaciones necesarias de validez. 
El número de tiradas que se desean se introducen en la línea 96. 
El bucle J (105-169) contabiliza las tiradas. 

El bucle 1 (120-149) garantiza la conformidad de cada tirada, con las 
probabilidades introducidas al principio del juego. 

Los resultados se contabilizan en la línea 145 y se visualizan gracias a 
la línea 159. 


Empezar la ejecución pulsando RUN, después, a la pregunta 
PROBA. DEL DADO 1, introducir un número comprendido entre 
yl 

Hacer lo mismo para los dados 2, 3, etc., sin olvidar que el total de 
probabilidades introducidas tiene que ser muy próximo a 1. 
Después, ante la visualización de la pregunta NÚM. DE TIRA- 
DAS, se introducirá un entero suficientemente grande, seguido de 
NEWLINE. 

El tiempo que tarda en aparecer la visualización de los resultados 
será más largo cuanto mayor sea el número introducido. 

Los resultados se visualizarán debajo de los números de las tiradas y 
aparecerán con caracteres invertidos: así, 32.3, que aparece debajo 
del 1 invertido, significa que la tirada de 1, a la que se había asignado 
una probabilidad de 0.3, se ha realizado 32 veces. 


POSIBLES EXTENSIONES: Podrá mejorarse la representación de los resultados utilizan- 


do, por ejemplo, un histograma o cualquier otro método gráficamen- 
te más expresivo. 
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TIRADA DE UN DADO TRUCADO 


PROGRAMA ZX 8L 


19 LET P=NOT P1 
15 DIM E(6) 
20 FOR I=5GN PITO S 


39 PRINT AT INT PI.NOT PI;“PRO 
BABILIDAD DEL DADO “;I 
48 INPUT ElT) 
59 LET PRP+E LD 
69 IF E(I) NOT PI OR ElI)>50N 
PI OR P>1,1 THEN GO TO CODE “Cos 
0 PRINT AT NOT PI.S*I-3; "DADO 
T:AT 5GN PI,S«I-5,E 115 
B8 NEXT 1 
90 IF P<.9 THEN RUN 
95 PBRINT AT INT PI,NOT PI;"NUM 


ERO DE TIRADAS 


96 INPUT P 

108 RAND 

105 FOR J=5GN PITO P 

119 LET NaINT (RNDF6+5GN PI! 


128 FOR I=SGN PITO 6 

130 IF Nx=I AND RND>E(I)-INT E(1 
3 THEN 60 To 118 

148 NEXT_1 

145 LET E(N)=E(N)+SGN PI 

150 PRINT AT PI4PI,SIN-S;E (NA 
T B,SiN-4;CHR$ (156+N) 


156 ne NEXT y 

] SRÍNT "IMPOSIBLE :0<2 P «<=1 
0 LET P=P-E(I> 
3 EAYSE SO 
e 


CLsS 
60 To se 


DADO DADO DADO DADO DADO D 
0,2 0.1 .058 0.15 0.1 0.4 


NUMERO DE TIRADAS 


1 2 3 4 s 6 
16.2 7.1 7,09 22.1510.1 38.4 
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PROGRAMA ZX SPECTRUM 


10 LET paa 


15 DIM El6) 

30 FOR Izl TOS 

30 PRINT AT 3,8;"PROBABILIDAD 
DEL DADO “1 


] 
R E(D>1 OR Poio 


¿AT 0, Sk 1-35; "DAD 
-S:ELI) 


+9 THEN RUN 
93 _PRINT INVERSE 1:AT 3,0; 
ERO DE TIRADAS "; INVERSE 0," 


INPUT P: PRINT INK 4;AT 


RANDOMIZE 

105 FOR Qui TOP 

110 LET NaINT (RND+6+1) 

FOR Iz1 TO 6 

IF ON=I AND RND>E (1) -INT 
, en 50 To 118 

140 NEXT 1 

145 LET E(N=EN4d 

150 PRINT AT 10.SéN-: NI; 
2; INVERSE 1:AT S,SeN-4iN 
160 NEXT y 


STOP. 
PRINT FLASH 1;” 
cai" 


NUM 


3,1 


Elr 


INK, 


IMPOSIBLE :0 


cLS 
60 TO 30 


DADO DADO DADO DADO DADO DADO 5 
+05 0.áé 0.3 0.1 .05 0.1 


AECA 00 


. 8 a a 
5.05 50.4 24.3 8.1 


B a 
3.05 10.1 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Orden 


Modalidad: SLOW o FAST. 

Dificultad de programación: mediana. 
Categoría del juego: juego de reflexión. 
Dificultad del juego: mediana. 


Se visualizan en desorden las 10 primera letras del alfabeto, que 
deben colocarse en orden, con el mínimo de intentos posibles, por 
permutaciones sucesivas de dos letras; esto tiene el inconveniente de 
que hace también permutar las dos letras que rodean la letra que se 
cambia, siguiendo el mecanismo que se explica abajo: 
BADGHJICF OE 

91 2.3.4 556 7 8 9 : permutación 83 


BADFHJIEGC 
91 234 5567809 resultado 


Los bucles intercalados 1 (10-70) y J (30-50) definen una variable 
alfanumérica AS, la cual contiene en desorden las 10 primeras letras 
del alfabeto, 

La línea 90 visualiza AS, y la línea 109 los números de las letras que 
se utilizan para la permutación. 

Se introduce la permutación en la línea 120. 

Las líneas 132 y 135 transforman la variable alfanumérica introducida 
en una variable numérica. 

Las líneas 150 a 170 realizan la primera inversión. 

Las líneas 190 a 219 efectúan la segunda. 

La línea 229 contabiliza los intentos. 

La línea 236 controla los resultados. 


Poner en marcha el programa con RUN. 

Se visualiza la palabra inicial, señalando cada letra con un número 
del Y al 9. 

A la pregunta INVERSION (UJ), se contesta introduciendo un 
número de dos cifras xy; donde x es el número de la primera letra e y 
el de la segunda. 

Entonces se efectúan las dos inversiones sucesivamente y se vuelve a 
empezar. 

El número de intentos se visualizará al final de la partida. 
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POSIBLES EXTENSIONES: Puede imaginarse un juego contra el ordenador, el cual 
evaluaría la puntuación del jugador en función de sus propios 
resultados. También pueden modificarse las reglas que rigen las 
permutaciones. 


ORDEN 


$ LET Asz=" 
10 FOR I=SQN PI TO 49 
1149 LET R6=CHRO' (INT (104RND+38 
39 FOR YzSGN PITO I-SGN PI 
49 IF RÍZASIJ) THEN 60 TO 20 
50 NEXT _ JU 
$0 
79 
88 
"INVE 
(S0N ED -27 
DR RS-30N 
143] 
199 
1500 LET AStI- SÓN PI: 58 (1+SGN P 
210 LET AS(I¿SON PT) 2N8 
220 LET S=5+SGN PI 
238 IF a$="ABCDEFGMIJ" THEN PRI 
NT e ENCON EADO, EN * INTENTOS 


Ri 


INVERSIÓN (I/J) 5 4 
s3 


PROGRAMA ZX SPECTRUM 


10 
6 (INT (104RND+6S 
39 FOR J=1 TO 1-2 


40 TF RSSAB(J) THEN GO TO 20 
59 NEXT y 

59 LET AGA6+RAS 

70 NEXT Y 

30 LET $=2 

029,PRINT INVERSE 3; INK 2/AT 0 


L123456799" 


108 PRINT PAPER 
0; “INVERSION (I/ 


119 PRINT AT 


4); INTENTO * 

120 INPUT A 

¿139 PRINT “I = “¿RSL11; ya 
"RS(2): BEBP 1,10: BEEP 1,4 


132 LET I=CODE RB(1i-47 
135 LET Y=CODE RS(Z)-47 
159 LET NS=A8(J) 

169 LET AENA 

LET ASI) NS 


168 16 RSLTI="8" OR REL) ="9" T 
HEN GO TO 228 
199 LET N$=R8(1-1) 
1-1) =A8(1+1) 
1+1) 205 
LET 5=5+1 
17 AS ABCDEFGHIJ" THEN PRI 


FLASM 0; P 
5. AS: BEEP 1,10: STOP 
248 GO TO 98 


a] 


INVERSION (I/J) ¡ INTENTO 18 
15: 3332 
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Carrera de caballos 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: SLOW. 

Dificultad de programación: mediana. 

Categoría del juego: de azar (para varios jugadores). 
Dificultad del juego: ninguna. 


Se introduce un número de caballos, comprendido entre 1 y 10, y la 
carrera empezará inmediatamente. 

Puede haber ex-aequos, ya que se tendrá en cuenta el hecho de que el 
ZX se ocupa de que los caballos avancen unos después de otros, 
empezando por el número 1; la clasificación se visualizará a medida 
que los caballos vayan llegando (teniendo en cuenta los ex-aequo). 


Un primer bucle I (60-150) visualiza los caballos en posición de 
salida. 

Un segundo bucle 1 (99-159), que utiliza el mismo NEXT l, los hará 
avanzar; se señalará la posición de cada caballo por una cifra o letra, 
en una variable alfanumérica AS. 

La línea 119 hará avanzar los caballos. 

La línea 129 controla las llegadas. 

La línea 14f realizará las impresiones. 

El subprograma 290-239 avanza el contador de llegadas e imprime 
los resultados. 


Se pone en marcha el programa con RUN. 

A la pregunta NÚM. DE CABALLOS :, se responde con un entero 
del 1 al 10, seguido de NEWLINE. La carrera se celebrará, a 
continuación, automáticamente. 


POSIBLES EXTENSIONES: En un ZX Spectrum se podrán dibujar los caballos con un 


grafismo más cuidadoso y diferenciándolos por su color. 


También podrá imaginarse un sistema de apuestas, que tendrá lugar 
antes de la salida de cada carrera. 
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PROGRAMA ZX 81 


19 As= 
29 PRIMA "NUMERO DE CABALLOS 


50 LET T=SGN PI 
LET ASP 
59 FOR I=T TO 


110 LET As! 
INT (Eos IAS 
120 AID? 


140 PRINT AT, I4T,CODE ASI) -28; 


MECHAS 


168 LEN Piper 
170 CET TN0 


JT PI 
199 JE Q<N THEN GO TO 


190 

200 LET AS(IDS"R" 
218 PRI 

220 LET T=56N 

239 LET Aañ+T 
240 RETU 


NUMERO DE CABALLOS 
" 


AS 

1 

Jai 
EN. GO TO 150 17 Abi" 
(CODE ASI + ET AED 
(ANDR4) 41) 
ROTHEN 60 SUB 2 ASI 

Ta 

NE! 

a 


NT ST, ISÍoNOT PIP 


CARRERA DE CABALLOS 


LET An 


.o 


2 
ASI)» 


K 
=CHRE 
o 
+I,0 

1 


NUMERO DE CABALLOS 


91 


PROGRAMA ZX SPECTRUM 


PRINT “NUMERO DE CABALLOS 


* THEN 50 TO 


150 


[CODE As Ti+ 
THEN 60 3U8 2 


E ABLT) 48; 
INK I-T+INT 


0D 


HE 
INT AT 1+1 0; 


5 "BEER d,2,15 


PLASMA 1: 


? 


PA 
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El juego de Marienbad 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: FAST o SLOW. 

Dificultad de programación: mediana. 

Categoría del juego: lógica (para dos jugadores). 
Dificultad del juego: mediana. 


Un juego que se ha hecho muy famoso gracias a una película que lo 
popularizó; no obstante, se presenta aquí en una versión más 
conforme con sus orígenes, es decir, el juego de NIM. 

Al principio de la partida es posible escoger el número de montones 
que se quiera hacer y el número de cerillas que se quiera poner en 
cada montón. 


Se juega por turnos y pierde el jugador que quita la última cerilla. 


La línea 49 dimensiona una variable A(I) que contendrá el número 
de cerillas de cada montón. 

El bucle 1 (56-56) permite introducir este número. 

El bucle 1 (59-80) imprime los montones. 

La línea 105 asegura el cambio de jugador. 

La línea 130, así como la línea 16, controlan si la jugada está 
autorizada. 

La línea 215 controla el final de la partida. 


Se pone en marcha el programa con RUN, después se introduce el 
número de montones (entre 1 y 8), seguido de NEWLINE. 

A continuación, se introducirá el número de cerillas en cada montón 
(pulsar N seguido de NEWLINE en cada introducción). Se obtendrá 
entonces la visualización de los distintos montones, con el número 
del jugador concemido (1 o 2), lo mismo que el mensaje NÚM. DE 
MONTÓN, se responde tecleando el número del montón del que se 
desea retirar las cerillas, seguido de NEWLINE. 

A continuación, se obtiene la pregunta NÚM. A QUITAR, y se 
responde indicando el número de cerillas que se desea quitar del 
referido montón. 

A continuación será el turno del segundo jugador, y se jugará 
alternativamente hasta que no haya más cerillas disponibles. 

Al final de la partida, se visualizará el número del jugador que ha 
ganado. 


POSIBLES EXTENSIONES: Podrá designarse a cada jugador por su nombre, hacer un 


grafismo más elaborado, escribir un programa que permita al ZX 
actuar de pareja, etc. 
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EL JUEGO DE MARIENBAD 


PROGRAMA ZX 81 


Ss Cls 
10 PRINT "NUMERO DE MONTONES * 


29 INPUT ON 


TON NUHE: 

En] “iNbut AUD 
LET SES+ALI) 

SE NEXT E 

SZ LET MSON PI 


se 
89 For IASON PI TON 
50 PRINT 4 AA ISA CALI 


53 ERINT AT 8/36N CI:"MONTON* 
Zé PRÍNT AT Bjdnlo 


88 PRÍNT AT "JUGADOR 
eS Anson BL ImEN CES HOT 


Saro" AT 11,580N PI; TOMA DE 


100 
An THEN G0 TO 110 
(1) NOT PI THEN GO TO 1 


Jun nue 


ou 
1-51 
62 

E 


(3 


$019099: 
OR ts: 


Dora 


A 

GN _PI 

THEN GO TO 300 
15,SON PI; "EL JUGAR 
ANÁDO” 


MONTON 1 2 3. 4 


YUGADOR 1 
TOMA DEL MONTON 


PROGRAMA ZX SPECTRUM 


E 
10 PRINT “NUMERO DE MONTONES “ 
20 INPUT N: PRINT ON 


LET 3-9 
35 IF N>=83 THEN RUN 
40 DIM Al 
58 


Ni 
FOR 1=1_TO 
se ¿a ¿MONTON 015% 
NoñERO a Conse ds 


38 Er SAD 


56 NEXT 1 
57 LET H=1 
se 


ELs 
59 I=1 TON 
50 PAINT PAPER 
134," “AD 
65 PRINT AT 6, 
78 PRINT FLASA 
4145; 1 
88 


BRIGHT 1: AT 


MONTON” 
INK 1¡AT 6,4 


4; “JUGADOR “¿M 
LET_H=0 

E TOMA DEL MON 

F TN THEN GO TO 

130 pa A(T)120 THEN 60 TO 110 

140 PRINT AT 13,1;"NUMERO A QUI 
90 INPUT O: PRINT AT 13,18;0: 


E 
PAUSE 2: 
jan IF O>RA(T) OR 0=0 THEN GO TO 


65 INVYERSE 1,AT 
OR ";H;“ HA GÁÑNAD 


JUGADOR 2 
TOMA DEL MONTON :3 
NUMERO A QUITAR :2 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Ídem 


Modalidad: SLOW o FAST. 

Dificultad de programación: mediana. 

Categoría del juego: juego de cálculo mental (para dos jugadores). 
Dificultad del juego: según el nivel escogido. 


El ZX escoge un número de n cifras (según el nivel de dificultad 
indicado al principio). Este número (el mismo, al principio, para los 
dos jugadores) se reducirá en cada jugada una determinada cantidad, 
igualmente escogida al azar por el ZX al principio del juego; en cada 
jugada debe escogerse una columna (las decenas, las centenas, etc.) y 
añadir en esta columna algún entero; el objetivo es obtener, en un 
momento dado, la visualización de un número que tenga todas sus 
cifras idénticas. 

Cada resultado se visualiza un instante, y a continuación el turno 
pasará al siguiente jugador, que volverá a partir de su resultado 
anterior. 


Una variable numérica N se dimensiona en dos en la línea 12, con el 
fin de contener los sucesivos resultados de los dos jugadores. 
La línea 29 permite introducir el nivel de dificultad escogido. 
El número inicial se confecciona en la línea 25. 

La cantidad que intervendrá en las reducciones se obtiene en la 
línea 30. 

La línea 40 comprueba si el resultado no es demasiado pequeño. 
La línea 45 visualiza el número del jugador. 

El número se visualiza en la línea 50, y la jugada del jugador se 
introduce en la línea 74 (número de 2 cifras). 

La línea 80 incrementa la columna escogida, y la línea 85 reduce el 
número de la cantidad escogida al principio. 

El resultado se visualizará un instante (líneas 9) y 106). El bucle 
1 (129-135) permite verificar si todas las cifras son idénticas. 

La impresión y el final de la partida se efectúan en la línea 140. Las 
Kneas 159 y 169 se ocupan del cambio de jugador. 


Poner en marcha la ejecución del programa con RUN. 

El número inicial se visualiza para el jugador n.* 1, que jugará 
tecleando xy, seguido de NEWLINE, x es la cifra que hay que 
añadir, e y es el número de la columna donde debe añadirse. 
El resultado (provisional si es demasiado pequeño) se visualizará un 
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instante; el turno pasa al siguiente jugador, y así sucesivamente. 


Puede pararse el programa en cualquier momento pulsando 
BREAK. 


POSIBLES EXTENSIONES: Podrá ampliarse el juego a más de dos jugadores, mejorar la 


elección del número que interviene en la reducción o los distintos 
controles, dejar visualizados los diferentes resultados, etc. 


ÍDEM 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
19 LET M=30N PI 10 LET H=1 
12 DIMN » 12 DIM N (2) 
15 PRINT “NIVEL (2-7) 15 PRINT “NIVEL (2-7)" 
20 INPUT pe 20 INPUT N 
22 ter uri 22 LET q028: LET P=0 
25 LET N(SGN PI)=INT ((Ur eu 25 Li N(1) INT ((UPN=U4 NR 150 
(N-36GN_PI)) eo SON PI 1)) 
A N(2) =N(SGN PI 27 N(2) =N 
Ll INT_(24USRIN-SGN PIS A=Il Zeur (N=1) ¿RND+U+? 
RAND+UX4(N-SGN PI)) » 
CL: Ll =P+ (Had) 
40 IF N(H) <UEFIN-SGN PI) THEN J N-1) THEN LET Ntí 
LEY Ni =U+N=ABS NM) Ly 
Er RINT AT INT PI,NOT PI, "JUG n SE 1; INK HAT 3 
"in sPI 13 ¿RAT 3,13; INTENTO 


0 PEE E OiGaUERS, 1 Ta 
9 3 ar $5 PRINT TAB $; PAPER 5;"76543 
70 PUT RS 69 PRINT AT 9,0,“SU JUEGO (NC 
30 Nino VAL RS(SGN PI ? 
1UARIVAL AG 79 INPUT R$ 
85 Ll CU 9 LET ON(H) =N(H) +VAL R$/1) +Ut 
20 PRINT AT NOT PI; "R VAL RA (2) -1 
ESULTADO “¡Nt . ¡5 LET ON(M=N Un) 
100 USE CO! AST. 90 PRINT AT ER e SaesuLraDo y 
119 LET R SEAS, INUER: 1 
120 FOR 1:30N PI 19 LEN Re-36N 100 BEEP 1,18% PAUSE 250 
1 119 LET e En as 
130 IF RA(I) <>AGS(I+SGN PI) THEN 129 FOR I=1 TO 
E 15 z 2” STD ORS TL hen 60 T 
140 PRINT "BRAVO , JUGADOR “;M; 135 NEXT 1 
149 PRINT ELasa 1; PAPER 4;"BRA 
150 LET Hert+SON PI VO , JUGADOR - BEEP .3,10: BE 
160 IF H>=INT PI THEN LET HaSGN EP | .3,18: BEEP” 23,8: PRINTO"  “; 
PI » INTI STOP 
178 GO TO CODE "7?" 


+1 
THEN LET H=1 


160 IF H> 
179 Go TO 35 


A A 

JUGADOR 2 

NUMERO » 

78543; 

NUMERO 3976 

SU JUEGO INC) ? 
SU JUEGO (NC) ? 

RESULTADO 

BRAVO , JUGADOR 1 
RESULTADO 1187 1 INTENTO: 


95 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Mastermind 


Modalidad: FAST o SLOW. 

Dificultad de programación: difícil. 

Categoría del juego: lógica (para un solo jugador). 
Dificultad del juego: difícil. 


Convertido en un clásico de los juegos sobre microordenadores, este 
juego desarrolla el razonamiento deductivo; debe encontrarse lo más 
rápidamente posible un número de n cifras (n deberá estar 
comprendido entre 1 y 5), disponiendo de información en cada 
intento. En efecto, el ZX contestará indicando, por una parte, el 
número de cifras que están en el número propuesto, exactamente en 
el mismo sitio que el número que se tiene que descubrir, y, por otra 
parte, el número de cifras que constan en el número que hay que 
descubrir, que no están exactamente en el lugar apropiado. 


La elección del número de cifras del número que hay que descubrir se 
efectúa de la línea 19 a la línea 30. El número se confecciona en la 
línea 59 (podrá haber cifras repetidas). 

La visualización se prepara por la línea 6%. 

La línea 95 se ocupa del final de la partida. 

Un primer bucle 1 (199-124) comprueba las cifras que están bien 
situadas. 

Un segundo bucle J (198-114) comprueba las cifras que están 
presentes, pero mal colocadas. 

Los contadores se encuentran en las líneas 118 y 122. 

La línea 128 visualiza el resultado, y la línea 134 contabiliza los 
intentos. 


Se pulsa RUN y se escoge la longitud del número deseado (de 1 a 6), 
seguido de NEWLINE. 

Después de la visualización NO. NÚMERO BUENO COLOCA- 
DO, se introduce la jugada, seguida de NEWLINE. 
Inmediatamente se obtiene la respuesta (en caso de doble cifra, los 
resultados pueden ser un poco delicados de interpretar). 

A continuación se introduce un nuevo intento, y así sucesivamente. 
Si la pantalla está llena (mensaje de error 5), habrá que pulsar CONT 
para borrarla y seguir. 

Cuando se encuentra el número, se obtiene la visualización ENCON- 
TRADO EN ... VECES. 
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Puede salirse del programa en cualquier momento introduciendo una 
letra, seguida de NEWLINE, en vez del número que se intenta. 


POSIBLES EXTENSIONES: Se intentará evitar la presencia de cifras dobles en el número 
que debe encontrarse; también puede preverse un cambio de página 
automático, con llamada a los resultados anteriores, efectuarse otros 
juegos parecidos, con palabras u otros símbolos (color, tamaño), etc. 


MASTERMIND 


PROGRAMA ZX 81 


CLs 
PRINT “NUMERO DE CIFRAS ; 


GN PI 
9 LET AD (INT (RNDAD+PN+ 


60 PRINT SEN PT; "NO+ 
NUM BUENO MERLO 
70 1 $ 
BL Tr eI 
90L 
9s 1 E THEN PRE 
RADO *. N ¿e 
109 Fl GN PTI 
2d9S 1x8 AS 
108 FOR J=3GN PI TC 
112 IF ULT AND X$ 
N GO Ti 1 
114 N 
116 6 O e4 
118 LET Y*Y+SGN PI 
128 GO TO 124 
122 LET X=X+S0N PI 
15€ NEXT 1 


9 ARÍNT OT 4SE,S0N PISE:TAD 7 
Es TAB 18: 3708 25; 

3% LET_ESE+SÓN PI 
128 50 To ss 


NUMERO DE CIFRAS 4 


NO, NUMERO BUENO COLOCADO 
1 1234 o E 
2 5676 1 2 
3 7419 a 1 
4 3826 0 1 
s 3516 E 2 


PROGRAMA ZX SPECTRUM 


5 CLs 
PRINT “NUMERO DE CIFRAS “; 


LEr EA (INT (RND+9tN+1 
0t IND) 
50 PRINT P E 1; PAPER 4;AT 
NUM 


1; "NO. Ñ 
Abb" BUENO ¿Ao? 
78 INPUT E% 
88 LET x=8 
98 LET Yax 
9S_IF ES2XS THEN PRINT FLASH 1 
Al 
Pp. 1,12: Stop 
100 I=1 TON 
¿295 1F SCD MES CI) TMEN 60 TO 1 
108 FOR yxi TO N 
112 IF Y<o1 AND XB11)>ES (0) THE 
N_ 60 TO 111 
114 NE; 
116 GO TO 124 


TL: 
120 PRENT INR ALAT 4+2,1;E5TAB 
¿ES;TAB 18;X,TAB 25;Y 

139 LET Eskri 

149 60 TO 68 


a 


NUMERO DE CIFRAS 4 


NO. NUMERO BUENO COLOCADO 
2 1234 1 a 
2 5678 3 Tí 
3 9837 2 1 
4 9933 2 a 
5 1077 3 1 
13 1071 2 2 
2 1017 3 1 


ENCONTRADO 1667 EN 8 VECES 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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A través 


Modalidad: SLOW o FAST. 

Dificultad de programación: mediana. 

Categoría del juego: de reflexión (para dos jugadores). 
Dificultad del juego: mediana. 


Aparece en pantalla un cuadrado de nueve casillas, con letras sobre 
el borde vertical y con cifras sobre el borde horizontal. 

Uno de los jugadores maneja las cifras y el otro las letras. Pueden 
efectuarse tres desplazamientos para las cifras y otros tres para las 
letras. 

Estas últimas pueden desplazarse hacia arriba, a la derecha y a la 
izquierda, y las cifras hacia la derecha, arriba y abajo. 

Gana el primero que consigue sacar todos sus símbolos (las letras 
salen hacia arriba y las cifras hacia la derecha). 

No existe la captura y no se autorizan los saltos; tampoco puede 
utilizarse una casilla que ya esté ocupada. 


N N 
CIFRAS l—. LETRAS O PE E E 
s 


Las posiciones de las cifras y de las letras se graban en una tabla 
N (4,4); las líneas 5 a 89 definen los valores de salida. 

Las líneas 119 a 150 dibujan el campo de juego, y la línea 169 
visualiza al jugador que tiene el turno (bajo la forma simplificada de 
1 para las cifras y A para las letras). 

La línea 199 controla la jugada, lo mismo que los bucles 1 (210-226) y 
J (229-224). 

El juego propiamente dicho se controla por las líneas 229 a 400, y el 
cambio de jugador se asegura por la línea 418. 


Después de pulsar RUN, se visualiza el campo de juego y el 
ordenador espera la jugada del jugador designado por 1 o por A. 
Primero se introduce la letra o la cifra, que representan el peón que 
ha de desplazarse, seguido de una indicación de dirección bajo la 
forma N (para el norte), S (para el sur), E (para el este) y O (para el 
oeste). 
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Puede también pulsarse 2E, seguido de NEWLINE.-Si la jugada no 
es válida no se ejecutará y el código del jugador quedará visualizado; 
si está autorizada, se efectuará el desplazamiento y se obtendrá la 
visualización correspondiente al segundo jugador. El primero que 
consiga hacer desaparecer sus tres piezas habrá ganado. 


POSIBLES EXTENSIONES: Puede ampliarse el juego con más cifras y letras, así como 


60 LET 


TIO cm 
HepDnreso rt 


mx 
NN? AQUA - COPLA 


LOSE 98 SS SESGO 


OOVON | 
TATES 


duteruunváuym 


3 
INT AT 5+5,5GN PI: "JR "¡0 
DE Par+K) 


LET 


340 1F 
AND KIS) 


la 


400 LET N(A 
LET K=ABS 
5070 CODE 


419 
420 


UR 


DN- 


" 
z 
S 
2 
v 
” 
2 
9 


mejorar los controles. Puede también definirse una estrategia para 
el ZX. 


A TRAVÉS 


PROGRAMA ZX SPECTRUM 


277 


s 
CODE “0"+I 
CODE “?"+*J 


Ti 2258. 
O 


z 
A 

ze 

16 


IND NC 


Al 
20) RAND MIL, 


EAT 


o 
AAA 


JUGADOR QUE 
AND Kj "LET 


TK 

, 

ND_RB(F) =:0"1 OR (NO 
Y THEN GO TO 16 


(50N PI: Y 210 FOR I=1 TO 5 
AS 228 FOR J=1 TO $ 
222 IE NUI, 9) ACÓDE RS(1) THEN G 


Boy 
SS 229 LET Asi 
LET Usd (RS(FI= "EI (RSF S28 Cer ias ir 


SURG 


(NOT _I AND K:S1 OR 395 z En- S 
THEN GOTO CODE “COS “*F A ET nds (00 PASEO ERAS 


350 IF N(1,J)<»NOT PI TMEN 5070 noo 
2CODE R$ISGN PI; 388 LEN 
=NOT_P 0 


0 THEN GO TO 168 
CODE As li 
K-1): BEEP 1,204 


JUGADOR QUE TIENE LAS CIFRAS 
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Reinas sobre el tablero 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: FAST. 

Dificultad de programación: difícil. 
Categoría del juego: de reflexión. 
Dificultad del juego: difícil. 


El programa utiliza un algoritmo muy logrado para resolver un 
problema que ha dado mucho que hacer a los investigadores, incluso 
a algunos tan célebres como el matemático GAUSS, que no pudo 
descubrir todas las soluciones. Se trata de encontrar la forma de 
colocar las reinas en un tablero de tal forma que ninguna pueda 
comer a otra. 

El programa retenido es muy flexible, ya que tiene la posibilidad de 
escoger el tamaño del tablero; los resultados se visualizarán a la vez 
en forma gráfica y en forma numérica. 


La línea 119 permite escoger el tamaño del tablero. 

Una variable D se dimensiona en consecuencia en la línea 29. 
Un bucle principal de exploración 1 (39-89) contiene un subbucle 
J (58-79), que realiza el control de no alineamiento (línea 60). 
Si durante la exploración se encuentra un alineamiento, se vuelve 
hacia atrás utilizando las líneas 179 y 219 y vuelve a empezarse. 
El bucle F (109-140) asegura la impresión del tablero, y el bucle 
T (115-125), que podrá eventualmente suprimirse, asegura la 
impresión del resultado bajo la forma de un código numérico 
correspondiente a la posición de las piezas en cada columna. 
La línea 169 permite una parada, después de la visualización de cada 
una de las soluciones. 


Se pone en marcha el programa con RUN; después se teclea la 
dimensión del tablero que se desea y se pulsa NEWLINE. 
Basta con esperar pacientemente (cuanto mayor sea el tablero, más 
larga será la espera). 

Se visualizará la primera solución, el programa se parará y habrá que 
pulsar cualquier tecla (menos BREAK) para que vuelva a ponerse en 
marcha. Para terminar antes de explorar todas las soluciones deberá 
pulsarse BREAK. 


POSIBLES EXTENSIONES: Pueden encontrarse algoritmos para problemas análogos 


(posición de las torres, desplazamiento de un caballo, etc.). 


100 


100 
1 


102 PROGRAMAS PARA ZX 81 Y SPECTRUM 


REINAS SOBRE EL TABLERO 


FOR FE=SGN PI TOS 
POE AT NOT PI,F+F;F;AT F+ 
FOR T=SGN_PI TOS 

PRINT_AT Fe, TATI 

NEXT OT 


PRINT AT FAR D(FIRD (FM 


PRINT AT CODÉ "=",F;DiF) 
NEXT F 

PAUSE 4E4 

LET ImI-SGN PI 

LET DIT) D(1) +50N PI 


IF DÍJ)caS THEN GOTÓ CODE * 


LET Iz=I-SGN PI 
TF 1 THEN GOTO 


CODE 


ES 


248135 
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PROGRAMA ZX SPECTRUM 


19 INPUT $ 

28 DIH DIS) 

39 FOR 1-1 TOS 

49 LET D(Dz=1 

50 FOR Ja1 TO I-1 

69 1F D(I)=0(J) OR AS: 
143) =1-4Y THEN GO TO 188 

70 NEXT Y 

80 NEXT 1 

98 CLS 


109 FOR F=1 TOS 


Ss 


In -D 


110 PRINT AT B,F+F,F ¡AT F+F,0;F 


115 FOR T=1 TOS 


128 PRINT_INK 4AT F+F,T+T¡0e 


125 NEXT _T 


130 PRINT PAPER 1AT F+F.DIFI+D 


(LA BEEP .3,1 


z $5 
198 PRINT_INK 2/AT 21,P:D(M) 


140 NEXT F 

169 PAUSE 4F4 

179 LET Zulca 

LET D(ID2D(1I) +2 


189 YE DIT c=S TUEN 60 TO se 

e GE TFÑEN 00 TO 150 
12345678 
10 RA ea 
244. +... 
DARLA ACC 
ARE +. 
Su. .reogs 
Do e... 
7er... * 
Brrks. *.or« 
24683175 


El 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


102 PROGRAMAS PARA ZX 81 Y SPECTRUM 


juego de la vida 


Modalidad: FAST o SLOW. 

Dificultad de programación: difícil. 

Categoría del juego: juego solitario (dos versiones). 
Dificultad del juego: fácil. 


La versión que aquí se presenta respeta las reglas establecidas en su 
origen por el matemático J. H. CONWAY. 

Al principio del juego, se define una cierta población, ya sea por el 
ZX (versión completamente automática) o por el jugador (versión 
manual). 

Esta población irá evolucionando, respetando ciertas reglas muy 
elementales de nacimiento, de vida y de muerte. La evolución 
proseguirá hasta que se decida parar el programa. 


Se utilizan dos tablas (B y C) en las líneas 39 y 35 para grabar el 
estado de la población. 


Los bucles F (219-250) y G (229-240) se utilizan al principio del juego 
para definir la població» cial (líneas 222 y 227). 

El cálculo de la nueva población se realizará después con la ayuda de 
un bucle cuádruple: 69-195, 1109-19, 120-160, 130-150. 

La línea 135 realiza la gestión del nuevo estado siguiendo las reglas. 
La visualización de este nuevo estado se obtiene volviendo a utilizar 
el doble bucle de visualización F (218-250) y G (220-240). 

La línea 279 permite volver a empezar. 


En la versión automática, basta poner en marcha el programa con 
RUN y mirar. 

Se pulsará BREAK para parar. 

En la versión manual, la configuración inicial se introducirá, después 
de la puesta en marcha del programa con RUN, tecleando Y si no se 
quiere poner nada en la línea ni en la columna indicadas y 1 si se 
desea poner una célula. 

Después, la evolución proseguirá de manera automática. 


POSIBLES EXTENSIONES: Si se dispone de una memoria más importante, será fácil 


aumentar las dimensiones de las tablas B y C volviendo a definir la 
variable A. 


También podrá introducirse color, mejorar la precisión del dibujo 
reemplazando los PRINT por los PLOT, etc. 


102 
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EL JUEGO DE LA VIDA (AUTOMÁTICO) 


PROGRAMA ZX 81 


19 LET A=INT PI+SGN PI 
20 LET B=36N PI 
30 DIM B(A,A) 
35 DIM CIAJA) 
49 LET_I=NOT PI 
59 GO TO CODE "Cos ” 
59 FOR F=B TO A” 
119 FOR G=B TO A 
LET S=NOT_ PI 
135 IF F+J2NOT PI OR G+I=zNOT PE 
OR F+J20+B OR G+I=A+B THEN GO T 
O CODE 
140 LET S2:5«B(F+J,G+10 
150 NEXT y 
160 NEXT_1 
179 LET 5=S+3-B(F.G) 
175 LET CIF,G)=N0T PI 
180 IF _S):94+B AND S:2%+2-B THEN 
LET C(F,G;=8 
190 NEXT G 
195 NEXT F 
200 CLS 
219 FOR "=B 38 A 
220 FOR 62B T 
222 IF 1 RENO (53 TO CODE - FAST 
225 PRINT AT PISA,B;:P 
E Paga pos 
NE 
229 Ai 
F,6) 
230 
240 
250 
269 
270 


o 
. + 
.r 
.. 


PROGRAMA ZX SPECTRUM 


PRINT "DIMENSION": INPUT A 


6D Td 208 
FOR F=B TO A 
POR 9:B TO A 


=9 DR _F+J=R+ 
B_OR +8 THEN 60 TO 150 

149 LET S=5+B1F+U.Grl: 

159 NEXT y 

1698 NEXT_I 

170 LET 5=285-B(F.6) 

175 LET_C(P,6)=0 

160 1F 5>=5 AND $27 THEN LET € 
(F,6)=B 

199 NEXT G 

195 NEXT F 

208 CLS 

210 FOR F=B TOR 

228 FOR G=B_TO A 

222 IF 1 THEN GO TO 228. 

225 PRINT AT 3%A,B;F;' 
225 PAUSE Ata 

7 LET CIF GIR2UAL INKEYS 

EAN Y 
AND C(F,G6)=B 

239 LEÍ B(F,G)12C(F,6) 

248 NEXT G 

258 NEXT F 

260 BEEP 1,0 

278 GO TO 60 
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EL JUEGO DE LA VIDA (MANUAL) 


18 LET AxINT PI+SGN PI 
20 LET BeSGN PI 

30 OIM B(A,A) 

35 DIM C(A,A) 

49 LET_I2NÓT PI 

58 GD TO CODE “Cos 
560 FOR F=B TO A 
110 FOR G=B TO A 
113 LET SÑNOT_P1 
120 FOR l=-B TO B 
130 FOR J=-B TO B 


138_1F F+J3NOT PI OR G+I=NOT PI 
SR pun p98 OR G+I=A+8 THEN 60 T 
0 CODE «a 

140 LET_S=S+B(F4+J,G+1) 


1 
1 o0.A 

2 IF 1 THEN GO TO CODE * FAasT 
7 LET C(F,0)2B AND RNDC.S 

9 _SRINT ATP 646; "+" AND OL 
* 

O LET B(F,G)2C(F,6) 

1] XxT G 

0 NEXT _F 

f] 

3 


Ll 
NE; 
NE; 
PAUSE 
60 


eo r* 
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PROGRAMA ZX SPECTRUM 


10 PRINT "DIMENSION": INPUT A 
20 LET Bxi 

38 DIM B(A,m 

395 DIM C(A,A) 

40 LET_1:0 

58 G0 TO 288 

69 FOR F=8 TO RA 

119 FOR G=B TO A 


135 IF M+J20 OR G+130 OR_F+J=A+ 
B_OR G+I=A+B THEN GO To 150 

140 LET SaS+B(F+J,G+1) 

159 NEXT Y 

168 NEXT_1 

178 LET S=215-B(F,G) 

175 LET_C(F,G) 50 

180 IF 5x5 AND Scm7 THEN LET C 


220 FOR G=B TO A 

222 IF I THEN GQ TO 229 
227 LET C(F.G)1aB AND ANDC.5 
229 PRINT INK 2;AT F+F,G+6; 
AND C(F.6)=B 


240 NEX' 

2509 NEXT F 

268 BEEP 1,0 

270 60 TO 60 
.. .. 
2... an 

a 

... 


No 
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Nombre del programa 


NIVEL 3 


Tema y particularidades 


Sousa” o” 


19 
20 


Rombos 

Tablero 

Pasillos 

Día de la semana 
El ahorcado 
Bridge 

Reloj L 


El lobo y los corderos 
Belote 
Un cálculo fastidioso 


Póquer 

Hanoi 

Mósica 

Ahorcado al revés 
Mateo 

Máquina de palabras 


Componer 
Nicomaque 


Permutaciones 
Juego de cartas 


Ayuda a dormirse... 

Bases gráficas para creaciones propias. 

Un juego de lógica para descubrir. 

Se utiliza como recordatorio de los aniversarios. 
Un juego de letras muy clásico (para dos jugadores). 
Para solucionar los problemas del bridge. 


No hay que tirar la vieja tele: puede transformarse en 
reloj. 


Un juego de reflexión para dos jugadores. 
Si no le gusta el bridge, podrá jugar a la belote. 


Un buen entrenamiento de cálculo (para dos jugado- 
res). 


Un inicio para poner a punto el programa. 

Un consejo: ¡empezar poco a poco! 

Revisar las nociones de solfeo gracias al ZX. 
Esta vez es el ZX el que intenta adivinar la palabra. 
¿No sabe dibujar? Deje al ZX. 


¿Es posible que el ZX encuentre palabras que no 
existan? 


Para ver, para aprender y para escuchar. 


Entrenamiento de cálculo mental (uno o varios 
jugadores). 


Un juego de reflexión, que no es siempre evidente. 


Y para acabar, un poco de prestidigitación, realizada 
por el ZX. 
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El manejo de las cadenas 
y de los gráficos 
de alta resolución 


EL TRATAMIENTO DE LAS CADENAS DE CARACTERES: R$ (*—TO —) 


En el nivel 2 se encuentra una primera instrucción que permite extraer el primer elemento 
de la cadena de caracteres R$; se trata de la instrucción R$(I). 

La instrucción que va a manejarse en este nivel da toda su potencia al Basic Sinclair, 
permitiendo una gran flexibilidad en el manejo de las cadenas de caracteres. 


Dada una cadena R$= “CABALLERO”, se tiene la posibilidad de extraer una 
subcadena que empiece con el carácter 1 y que termine con el carácter J, escribiendo 
simplemente RS(I TO J). 


De esta manera, R$(1 TO 3) = “CAB” 
R$(4 TO 6) = “ALL” 


Si se omite 1, se toman todos los caracteres de la cadena hasta J (instrucción LEFTS(R$,J) 
de los Basics normales). 


Así, RS$(TO 3) = “CAP”. 


Si se omite J, se toman todos los caracteres de la cadena después de 1 (instrucción 
RIGHTS(R$,I) de los Basics normales). 


Así, RS(4 TO) = “ALLERO” 
El signo + permite encadenar dos cadenas: 
R$(TO 3) + R$(4 TO) = “CABALLERO” 


Además, es posible sustituir toda una subcadena por otra, con una asignación de cadenas 
de longitud adecuada. 


De esta manera, si R$ = “CABALLERO” y si se escribe LET R$(3 TO 5) = “PAT”, se 
habrá obtenido: PRINT R$ = “CAPATLERO”. 


Las variables I y J pueden, por supuesto, calcularse. 


LOS GRÁFICOS DE “ALTA RESOLUCIÓN”: LA INSTRUCCIÓN PLOT 


El ZX 81 tiene la posibilidad (un poco limitada, a decir verdad) de visualizar o de borrar 
puntos de la pantalla, con una resolución de 64 x 44 puntos. 
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De todas maneras, el punto de referencia de los ejes no es el mismo que cuando se utiliza 
la instrucción PRINT AT. 


o Y 31 43 
x PRINT AT X, Y Y PLOT X, Y 
19 
0 x 63 


Un punto visualizado por PLOT 18,23 será borrado, en el ZX 81, por UNPLOT 18,23. 
En el ZX Spectrum el principio es el mismo, pero la resolución es de 256 X 176. 


176 


Y PLOT X, Y 


0 x 256 


Un punto visualizado por PLOT 150,79 será borrado, en el ZX Spectrum, por PLOT 
OVER 1, 150,79. 
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REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


102 PROGRAMAS PARA ZX 8l Y SPECTRUM 


Rombos 


Modalidad: SLOW. 

Dificultad de programación: fácil. 
Categoría del juego: interludio. 
Dificultad del juego: ninguna. 


El programa construirá progresivamente en la pantalla un rombo 
negro, y después lo hará desaparecer, también progresivamente, lo 
reconstruirá, y así sucesivamente. 

Este juego podría utilizarse para dormirse en caso de que no fuera 
suficiente con las ovejas. 

Igualmente, se propone una versión, ligeramente modificada, que 
permitirá que aparezcan motivos aleatorios después de la confección 
de los rombos negros. 


Un primer bucle K (14-60) define las dimensiones de los trazados 
sucesivos. 

El segundo bucle 1 (20-50) marca las bandas de puntos, utilizando 
instrucciones PLOT (líneas 25 a 45). 

Si la variable S (línea 79) está en 1, se producirá el borrado por la 
utilización de las instrucciones UNPLOT (líneas 9% a 105). 

Para obtener un borrado aleatorio (segundo programa), bastará con 
modificar la línea 22, que normalmente contiene: 22 IF $ THEN 
GOTO 9, escribiendo 22 IF S THEN GOTO 99 + 5 x INT 
(5 x RND). 

Entonces se obtiene un borrado aleatorio. 


Se empieza 14 ejecución del programa con RUN. A partir de este 
momento, basta con esperar y mirar. 

En cualquier momento puede pararse el desarrollo pulsando 
BREAK. 


POSIBLES EXTENSIONES: Por supuesto podrá introducirse color y, llegado el caso, 


sonidos, 


A partir de este momento, puede imaginarse toda una serie de 
programas basados en el mismo principio (caleidoscopio, tapices, 
etcétera). 
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ROMBOS 


PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 


S LET 5=0: INX 2: PAPER 5: CL 


10 FOR K=0 TO 48 
(5. E8 FOR_T=0 TO K 
22 IF S THEN 60 TO 90 
25 PLOT 124-K+1,84-1 
38 PLOT 124-K+1,54+1 
35 PLOT 124+x-1,84+1 
40 PLOT 124+Kk-1,84-1 
50 NEXT 1 
59 NEXT_K 
78 LET_S=NOT S 
38 60 To 18 
S8 PLOT OVER 1:124-K+J.34-1 
95 PLOT OUER 1,124-K+1.24+1 


100 PLOT OVER 1; 124+K-1.54+1 
105 PLOT OUER 1;1244+K .34-1 
118 60 TO 58 
ROMBOS (aleatorios) 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
3 LET 5xNOT PI 5 LET'S=8: INK 2: PAPER S: CL 
10 FOR KaM0T RI TO 15 s 
20 POR IMNOT PITO K 19 FOR K<Q0 TO 40 
22 IP 5 THEM GOTO 90 20 FOR 1=9 TO K 
25 PLOT 31-K+1,21-1 22 IF S THEN GO TO 30+5% 5 
39 PLOT 31-K+1,21+1 +RND+ 
393 PLOT 31+K-1,21+1 25 PLOT 124-K+I,84-1 
48 PLOT 314+K-1,21-1 30 PLOT 124-K+1,64+1I 
50 NEXT 1 35 PLOT 1244+k-1,564+1 
80 NEXT _K 49 PLOT 124+k-1,864-1 
70 LET S2NOT S 59 NEXT I 
08 GOTO 18 69 NEXT K 


.21-1 78 LET_ S=NOT S 
¿21+1 89 50 To 18 
211 99 PLOT OVER 


108 UNPLOT S1+k 1;124-K+1,34-1 
108 UNPLOT 314K 95 PLOT QUER 1;124-K+1.3441 
118 GOTO se 1092 PLOT OVER 1;124+k-1.54+1 

105 PLOT OVER 1,124+k-1;34-1 


119 cá TO 59 
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REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


102 PROGRAMAS PARA ZX 81 Y SPECTRUM 


Tablero 


Modalidad: SLOW o FAST. 

Dificultad de programación: difícil. 

Categoría del juego: grafismo. 

Dificultad del juego: variable, según la utilización. 


El programa que se propone es un complemento del programa 
AJEDREZ, para utilizarse con una eventual ampliación de la 
memoria; en efecto, da la posibilidad de realizar una visualización 
gráfica de buena calidad para los juegos que utilicen un tablero de 
8 x 8 casillas (podrá fácilmente ampliarse a 10 X 10 casillas). 
Se han previsto unos puntos de referencia, horizontalmente repre- 
sentados por letras (de la A a la H) y verticalmente por números 
(del 1 al 8). 


Las líneas 19 y 29 definen dos variables AS y C$, que contienen los 
elementos de dibujo. 

La línea 30 imprime las letras horizontales y la primera línea del 
dibujo. 

El bucle 1 (40-78) permite la impresión; el motivo que hay que 
imprimir se escoge en A$ o en C$ por una variable S (línea 50) que 
toma los valores 1 o 4, según el valor de 1; la línea 60 efectúa la 
impresión. 


La orden RUN provoca la visualización del tablero en la pantalla. 
Para utilizar el programa conviene tener en cuenta los puntos de 
referencia de las casillas utilizables, que son los centros de los 
cuadrados negros o grises. 

Las casillas se obtienen a lo ancho por una tabulación 3* 1 +1, 
l variante de 1 a 8, y a lo alto por 2* 1+1. 


POSIBLES EXTENSIONES: Este programa podrá utilizarse en toda clase de juegos que se 


desarrollen en un tablero (ajedrez, damas inglesas, el lobo y los 
corderos, etc.). 
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PROGRAMA ZX 81 


ÓN PI TO VAL 


45 PRINT AT NOT PI.INT PI+1+56 


N PI:CHR$ (CODE “9"+T) 
50 FOR J=SGN PITO VAL 
50 1F (14d) /S=INT £iléo) 
EN_G0_TO 88 


70 PRINT AT S+I-SGN_FI.INT Ple 
J¡ASTAB_SGN PILI; AT S+I.INT Dix 
DBSAT SFI+SGN PI, INT Pl; 


380 NEXT y 
99 NEXT 1 


CS 


a 


TABLERO 


111 


2 

5 
19 
20 
30 
43 
45 


se 
68 


EN_GO TO 30 


70 


1: 
Sx121 3% AS:AT 541,3%),BS:A7 


PROGRAMA ZX SPECTRUM 


BORDER 2: CL3 


Fon 1ói Tos 
PRINT AT 0,3+I+1; 
“er 


FOR Y=1 70 3 
TF (140) /S=INT 


PRINT AT S+I,1:1: Ink 


TL 3305 


Se 
129 
119 
128 
159 
139 


NEXT Y 

NEXT 1 

cg SUB sue 

FOR I=1 708 

PRINT INK 2;AT 4,3+1+1;CHRAS 


PRINT INK 4;AT 14 ,3+1+1:CMR 


s 159 


143 
145 
159 


NEXT Y 
LET H=2. LET P=2 
PRINT INK P:AT H.d:CHRg 1 


69 
AT_H.7;CHRg 154: AT H.10 Chks la 
9,AT M,13;CHRS 160, AT 9,1 5 


161;AT "HN, 19;CMR5 149 


169 
a Ar 


PRINT INK P:AT H,22 CMRS 15 
MaS; CHRS, 163 


170 MahH+la: LET P=P+z 

168 YE mI20 THEN STOP 

208 60 TO 150 

gos RÉm DIBUJO DE Las PIEZAS 
910 FOR ¿=1 TO READ PS 

3920 FOR ¿=8 TO $: REE hs pone 
USA Presa 

330 NEXT ¡ 

940 NEXT 1 

1000 DATA "f",0,16,40,53.195.5% 
124,0 

¿106 DATA "r",0,16,55,16.55,58,5 
1200 DATA ,0,84,124 56,56,12 
¿124,0 

1300 "DATA ,0,84,40,16,108.124 
¿124,0 

1480 CATA 

4,0 

1500 DATA 

124,0 

1600 RETURN 


noe ono 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Pasillos 


Modalidad: SLOW o FAST. 
Dificultad de programación: mediana. 
Categoría del juego: de reflexión. 
Dificultad del juego: difícil. 


Este juego recurre a nociones de lógica elemental. El jugador puede 
presentarse en la entrada del pasillo número 1 o del pasillo número 2. 
En estas dos entradas se colocan unos tormniquetes que basculan al 
pasar y dejan entrar una vez a la derecha y a la siguiente vez a la 
izquierda. 

Además, un torniquete análogo está dispuesto en el pasillo central; 
¿podrá preverse por dónde (salida A o B) se efectuará la próxima 
salida? 


El bucle I (19-79) dibuja los pasillos (los tres torniquetes no se ven), 
y las líneas 80 y 99 imprimen los nombres de las entradas (1 y 2) y de 
las salidas (A y B). 

Las líneas 194 y 110 esperan la elección. 

El desciframiento del camino lo realiza el ZX utilizando tres 
variables lógicas 1, J y K, que representan el estado de los 
tres torniquetes (líneas 138 a 249). 


Después de pulsar RUN, se dibuja el pasillo en la pantalla; los 
tomiquetes no son visibles, y deberá pulsarse 1 o 2 en respuesta a la 
pregunta del ZX. 

En la versión que aquí se retiene, la respuesta se visualiza 
inmediatamente y el camino que se ha seguido desde el principio del 
juego, así como las correspondientes salidas. 

Esto presenta la ventaja de permitir a varios jugadores ejercer su 
sagacidad, intentando prever por una entrada dada la respuesta 
del ZX. 


POSIBLES EXTENSIONES: Serán muy numerosas; es muy fácil imaginarse un pasillo más 


complejo, con otras entradas, salidas y torniquetes, así como una 
visualización gráfica de los resultados, dibujando, durante un 
instante, el estado de los torniquetes después de la respuesta del 
jugador. También puede añadirse una comprobación de las respues- 
tas (juego para varias personas), descontar los puntos de cada 
jugador, etc. 
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PASILLOS 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
10 FOR I=INT (PI+PI) TO CODE ” 39 GOR _I=12 TO 160 
3 28 PLOT 5,1 
20 PLOT NOT PI,I 38 PLOT 5S,1 
38 PLOT CODE “*",1 35 IF 1:45 OR 260 TMEN 50 To 
35 IF I<CODE OR I>TODE * 50 
THEN GOTO CODE * 40 PLOT 28.1 
40 PLOT INT PI,1 50 PLOT 59,1 
$0 PLOT CODE “E".r 68 IF 1:48 OR 1,90 THEN PLOT 3 


$0 IF I:CODE "£" DR I>=CODE 
" TUEN PLOT PIÉPIeSÓN PI, 1 


NEXT 

38 LES rinor PI 

26 LET Jer 

77 LET K=1 
1.20 ERINT AT 5,SGN PIs"A"¿TAB P 
+PTG 

90 PRINT _AT_CODE "=",5GN PI-"1 


“¡TAB PI+p1; "2" 
H : 


s 
,,BRINT AT NOT PI¿NOT PI;"2 0 


ÍNPUT Cs 
ET RIZAGLOS o 


AB 
140 e e REN LOTO “coBÉ =a 


LET JaNOT 
GF TUFAEN Boro coDE “FAST 


LET S$="B" 
GOTO CODE " THEN 


5 

Q LET_I2NOT 1 

S 1€ I THEN GOTO CODE 
1] 

2 

4 


"PAST 


LET Ss= A" 

LET TS=T4+58 

PRINT AT INT PI.NOT PI; 
¿TS 

GÓTO 109 

LET KzNOT K 

IF _K THEN GOTO CODE “205 

GOTO CODE ">=" 


sAL 


102:1 122211111 


SALIDA :f 


| | 
1 2 


BABBARABA 


PAPER S;¡AT 19,2:"T"¡A 
AT 12,4;"T" 


77 LET K=I 
89 PRINT INK 2; 

¡UAMAT OS 8;"B" 
90' PRINÍ INK 4; 

“¡AT 21,6,"2- 


FLASH 1/AT 5,2 
FLASH 1/AT 21, 


$ 
..100 BRINT, AT 0,0; "ENTRADA 1,2 


ss20B" 


TE3S 
334 BRINF aro rO;: 
TAB 12.15: BEER 
226 G0 TO 109 
229 LET K=NOT K 


SALIDA 


“Ss 
0.5,12 . 


235 IF K THEN 


Go TO 208 
240 60 To 228 


ENTRADA 1,2 ;1 
1111122222111 


SALIDA BDARABABBBAABA 
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Día de la semana 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: FAST o SLOW. 
Dificultad de programación: mediana. 
Categoría del juego: utilitario. 
Dificultad del juego: fácil. 


El programa permite encontrar, sin ningún tipo de cálculo, el día de 
la semana que corresponde a una determinada fecha, 

La fecha se introduce bajo la forma de tres números, por ejemplo, 
11, 3, 1956 para el 11 de marzo de 1956, y el resultado se visualiza 
claramente (de una manera algo abreviada: MAR por martes, DOM, 
por domingo...). 


Las líneas 19 a 75 controlan las entradas. 
La línea 39 se ocupa del final de la partida. 


La línea 9 permite una corrección de las fechas anteriores a 1582 
(puesta en servicio del calendario actual). 


Las líneas 195 a 119 permiten la visualización del mes en la respuesta 
(con 4 letras). 
La fórmula que se utiliza aparece en las líneas 130 y 135. 


Las líneas 140 y 159 permiten la visualización del día en la respuesta 
(con 3 letras). 


La línea 160 imprime el resultado. 


El subprograma 240-220 interviene para tener en cuenta los meses de 
enero y febrero. 


Poner en marcha el programa con RUN, después introducir el día, el 
mes (entre 1 y 12) y el año (bajo la forma 1845, por ejemplo), cada 
dato seguido de NEWLINE. 


El resultado se visualizará rápidamente, y el programa vuelve a la 
pregunta DÍA. 


Para continuar, basta con pulsar un día, un mes y un año. 
Para terminar, se responderá / a la pregunta DÍA. 


POSIBLES EXTENSIONES: Pueden introducirse los meses en claro y visualizar el nombre 


completo del día. 


Puede considerarse la visualización de fechas de fiestas particulares 
(Navidad, Pascua, Domingo de Ramos, Pentecostés). 


Puede escribirse un programa que visualizaría los días festivos de un 
año dado. 
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DÍA DE LA SEMANA 


PROGRAMA ZX 81 


10 PRINT AT NOT PI,NOT PI;"DIA 

28 INPUT y 

38 TF NOT J THEN STOP 

35 PRINT y 

49 PRINT “MES (1-42) “5 

59 INPUT M 

55 PRINT M 

68 PRINT "ANO A 

65 INPOT A 

78 PRINT 

38 CET 6-A 
999 LET S=INT (A/100)-INT (9/40 
BO JE ACSUAL "1982" THEN LET 5 
105 LET Má="ENERFEBRMARZABRIMAY 

SEPTOCTUNOUICICI" 
! STMEVÁL “4 "=INT PI 

120 IF M<INT PI TMEN GO SUB coD 
E “COS “y 

199 LET S=J-SGN PISINT (VAL "13 
CE M+SON PI) VAL "S")4INT CUAL " 
SULA/UAL 4") -S 
199 LET S25-VAL "7"eINT (S/VAL 


AbtO LET be "DOMLUNHARHIEVUEVIES 
150 LET ¿OTUELINT PIAS+SGN PIT 


O INT PIeS+IN 
160 PRINT AT VAL "7" NOT PI: "EL 
A ag ERA UN “46 
178 Go To vaL “iá" 

200 LET M=M+VAL "12" 

210 LET A=A-SGN PI 
220 RETURN 
DIA 
MES (1-12):7? 

ANO 284 
EL 7 JULI 1984 ERA UN SAB 


PROGRAMA ZX SPECTRUM 


19 PRINT AT 0,0; “DIA 
28 INPUT y 
38 IF NOT _J THEN STOP 
35 PRINT INK_2; FLASH 1,4 
40 PRINT “MES 11-12)"; 
50 INPUT M 
55 PRINT INK 2; FLASH 1:.5ó 
68 PRINT "ANO . 
85 INPUT A 
79 PRINT INK 2; FLASA 1,A 
75 LET B=A 
0190 LET S=INT (A/100)-INT /A/40 
90 IF As=1882 THEN LET 5=2 


LET_M8="ENERFEBRMARZABRIMAY 
OJUNIJUL IAGOSSEPTOCTUNCUIDICI" 
110 LET MéxM$(Hr4-0 TO Mes 
120 IF _m:3 TREN 60 SUB 200 
(1Ó+ M1) 514 


s 
135 LET S=5-7*INT 
140 LET Yi 


Sm 
"DOMINGO "LUNES 
HIERCOLESJUEVES rene 


03 B*? To ses+2 
150 PRINT INYI 5-83 1: 
E PA ERA ON 
silioJs! DEEP 1,12 
lva só ro 10 
200 LET M=M+12 
219 LET AsA-1 
220 RETURN 
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REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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El ahorcado 


Modalidad: SLOW o FAST. 

Dificultad de programación: mediana. 

Categoría del juego: juego de letras (versión para dos jugadores). 
Dificultad del juego: mediana. 


Sería, sin duda, bastante difícil encontrar el nombre del inventor de 
este juego tan de moda, pero no hay ninguna duda de que existe 
desde tiempo inmemorial, algunas veces también se ha practicado 
bajo otras formas (por ejemplo, reconstituir un cochinillo tirando los 
dados). 

La aparición de los juegos para microordenadores y la magia de las 
pantallas de televisión le han asegurado un renacimiento seguro; en 
la versión retenida, uno de los jugadores debe introducir una palabra 
de una longitud cualquiera. El ordenador visualiza entonces rayas en 
el sitio de las letras de esta palabra y pide al segundo jugador que 
proponga una letra. 

Cada respuesta correcta hace aparecer la letra en el sitio exacto de la 
palabra, y cada respuesta falsa hace progresar el dibujo de la horca. 
Para ganar, basta con encontrar la palabra desconocida antes de ser 
ahorcado. 


La palabra que hay que adivinar se introduce al principio del 
programa (líneas 19 y 29); una variable B$ en la línea 25 contiene 
todos los elementos del dibujo. 

El bucle 1 (40-69) confecciona una palabra P$ que contiene las rayas 
en el sitio de cada una de las letras de la palabra inicial. 

El bucle 1 (84-88) se ocupa del dibujo (más o menos completo, según 
el valor de P). 

Las líneas 99 y 92 visualizan el resultado y paran el juego (gracias a 
una variable W, no definida). 

La letra que se prueba se introduce en las líneas 95 y 109 y se 
comprueba en el bucle 1 (119-130); el subprograma 200-224 
reemplaza cada raya por la letra correspondiente. 


Después de poner en marcha el programa con RUN, uno de los 
jugadores debe introducir su palabra y pulsar NEWLINE. 

Las rayas se visualizan en el sitio de cada una de las letras de la 
palabra, y la pregunta LETRA aparece en la pantalla; el otro jugador 
responde proponiendo una letra, seguida de NEWLINE. 

Si la letra es correcta, reemplazará a una o a varias rayas; si no, la 
horca empezará a dibujarse. 
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Se visualizará la palabra exacta cuando se haya perdido. 


POSIBLES EXTENSIONES: Será interesante confeccionar una lista de palabras, de la que 
el ZX podrá escoger al azar; también podrá mejorarse el dibujo y 
modificar el número de intentos que conducen a la horca, en función 
de la dificultad de la palabra. 


EL AHORCADO 


PROGRAMA ZX 81 


19 PRINT "SU PALABRA” 
20 INPUT R 

ps tor “E Mo O y 
ds FÓR TiS0N Pr,ro 

LEN R 

E , 
$8 NEXT 
6S LET Pxiz 
¿9 cLs 
80 PRZNT_AT NOT PI.NOT ex. PS 
Ss FOR 1=19.TO P STE? -SéN BI 
86 PRINT TAB 14:B8(56N CPieand 


Prgiro SEN er ora TI4INT PI 
EN IF PS2RS THEN PRINT “BRAVO” 


"92 IF P=SGN PI TMEN PRINT 
PeRbIDo Elo 
IS PRINT AT BI,NOT PI;"SU LETR 


INPUT $8 
LET T=N0T PI 
FOR I=SGN PI 
JEDI TREN EOSUS 200 


7 Turn, foro 7e 

LET P=P=S 

soro_7e 
T=SON PI 

LT Da 

RETURN 


E--ENADO 


SU LETRA 


u7 


PROGRAMA ZX SPECTRUM 


10 PRINT E PALABRA * 

29 ¿NpUr 
a +5 Lera A Do MPAA 

39 LET Ed .n 

40 FOR I: 0 LEN AS 

50 LET PgS=P98+"-" 

62 XT 1 

6s El Pz=11 

70 CL 

s0 PEÍNT AT 0,0;PS 

Es FOR I=10 TO P STE! 

TF" TAB 14 A 3; ¡TAPER] 

«de E 


xT 
sa YE PS=RS_THEN PRINT FLASH 1 
¿PAPER do CBRRYO, BEE e kl 


ÉEP_.2.18: BEER BEER 
0: STOP 
2 IF P=1 THEN PRINT FLASH 2; 
EJABDE y LA PRLADOA ER LES Be 
ER ,2,-10 ER .2,-10 BEEP .2, 
o! 626R .2,=19 or 
95 _PRINT AT 18,0: PAPER 5; INK 
1; BRISMT 1;"S5U LETRA 
100 INPUT 3$: BEER 1.20 
TO LEN RS 
=54 THEN GO SUB 208 
179 16 < einen 60 To 70 
153 
188 55 TO >0. 
208 LET T=1 
218 LET PS(ID=55 
228 RETURN 
SóLsaR= 
- 
A 
1 
SU LETRA 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Bridge 


Modalidad: FAST o SLOW. 

Dificultad de programación: difícil. 

Categoría del juego: de reflexión. 

Dificultad del juego: variable, según el tipo de problema. 


En este programa no se encontrará una pareja para jugar al bridge, 
sino, más bien, una simulación de un reparto de cartas; la 
visualización de este reparto de cartas se realiza juego por juego, 
sobre tres juegos solamente (a causa del reducido tamaño de la 
memoria); a partir de aquí, pueden presentarse todo tipo de 
problemas: declaraciones, carteos, etc. 


Las líneas 19 y 15 definen un juego de 52 cartas. La variable B$, en la 
línea 30, permite dar el nombre abreviado de los colores y también 
mejorar la designación de algunas cartas (10, valet, dama, rey y as). 
El bucle J (40-140) realiza el reparto de tres juegos de 13 cartas 
(bastará con poner cuatro en lugar de INT PI, en la línea 40, para 
sacar las 52 cartas). 

La línea 50 sirve únicamente para volver a colocar la cabeza de la 
escritura en lo alto de la pantalla. 

El bucle 1 (60-110) realiza el reparto y la impresión. En la línea 66 se 
escoge la carta entre las 52 disponibles. 

La línea 75 calcula el color de la carta que se ha sacado. 

La línea 80 verifica que esta carta no haya sido sacada anteriormente. 
Las líneas 81 y 82 se ocupan de la impresión complementaria, en el 
caso de que se saque un 10, un valet, una dama, un rey o un as. 
La impresión se realiza en la línea 88. 

La línea 199 permite eliminar las cartas que ya se han sacado, y la 
línea 129 realiza una parada entre cada visualización. 


Se pone en marcha el programa con RUN. 

Se visualiza verticalmente una primera serie de 13 cartas. Bastará con 
pulsar cualquier tecla (menos BREAK) para obtener la segunda serie 
de 13 cartas. Se procederá de la misma manera para la tercera. 


POSIBLES EXTENSIONES: En un material que disponga de una visualización más 


lograda, como es el caso del ZX Spectrum, podrán representarse las 
13 cartas bajo una forma más convencional. 

También puede añadirse la posibilidad de hacer declaraciones (y, por 
ejemplo, compararlas con las del ZX) o introducir posibilidades de 
carteo, incluso para el ZX. 
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BRIDGE 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
19 LET RS="204567891UD0RA" 19 LET RE="29488739LUDRA 
15 RETRSIRSIRGIAS 15 LET RESREIRGERGLAS, 
20 INT (PISPI) 20 LET U PAPER 7 cLS 
39 “TROICOPIORAES” 30 LET £ RDICOPISAÑES” 
38 LEN OS 35 LET U: B 
42 FOR J=56N PÍ TO INT PI 49 FOR y (] 
S0 PRINT AT NOT PI,Y 50 FOR 1 0 
60 FOR I=SGN PITO Y 65 LET F=1-13+ 
66 LET XzINT (LEN RSFAND+SGN P 65 LET XzINT £ 
D 25 LET S=2«INT 
75 LET S=UAL “2%EINT e M-S5N P 89 IF RS(X)="0 
DD ¿UI ¿SEN PI” 81 LET T=X-Vel 
88 16 PSX) ="9" THEN GOTO CODE 82 LET T=TI4UEN 
“pro 58 BRINT AT F, 
BA LET T=X-UEINT (X/v) T) AND T>=U);AT 
B2 LET TsT+VENOT T (5-11 /2)+3,B6 15 
88 BRINT TAB Us JY-U:PSIX) +1BBIT 108 LÉET REX) =" 
AND T)=U);TAD Us J-PI-PI;B4:S T 110 NEXT 1 
S+SGN PY) 120 BEÉP 1,12: PAUSE ¿Es 
109 LET AsO0="0" 140 NEXT J 
110 NEXT 1 
120 PAUSE LEN Rgx+U 
140 NEXT y 
2 TR 4 DI 3 Pr 2 IR 4 co 20 01 4 T 
4 TR 23 PI E] 6 TR 2 PL As PI lo Pp 
As DI 5 PI RE PI VA DI 2 co $6 DI 8 )p 
DA TR RE DI 4 CO 4 PI 7 CO 3 br sb 
18 co 2 Co 6.0 2 DI RE PI Re có 0 
AS TR 7 PI RE 59 Ya TR VA co $5 01 3 .£ 
Ñ£ 01 YA DI 16 01 DA TR 3 TR $ Ci T 
Ss PI AS PI 8 DI 9 TR 7 DI 3 01 DA D 
5 Cc0 Í5S co 7] DA co 10 TR 9. PI Ss Ti 
4 Bl s TR 3_ TR 5 TR AS co As DI REO 
3 51 3 TR RE TR 19 CO 5 Co AS TA 26 
3 cú 5 TR UA PI UA BI 8 PI 7. PI RE Ti 
DA PI 2 DI 6 co 3 PI DA PI 4 D 
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DOM DADO NARA 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


102 PROGRAMAS PARA ZX 81 Y SPECTRUM 


Reloj 1 


Modalidad: FAST. 

Dificultad de programación: difícil. 
Categoría del juego: dibujo. 
Dificultad del juego: ninguna. 


Transformar la pantalla del televisor en un reloj numérico con una 
visualización de gran tamaño gracias a este programa, que os 
permitirá animar una vitrina, crear un reloj de fantasía o servir para 
Otros usos, A 


La línea 29 permitirá introducir la hora, bajo la forma de un entero 
de 4 cifras (por ejemplo: 1024 significa 10 horas 24 minutos). 
La línea 59 realiza la conversión de cada cifra. Las líneas 69 a 139 
efectúan el dibujo, retrasando la impresión poco a poco (con la ayuda 
de la variable K, incrementada en la línea 150). 

La línea 175 asegura el paso de las 24 horas 59 minutos a las 00 horas 
00 minutos. 

La línea 178 permite añadir 1 hora cada 60 minutos. 

La línea 19 asegura la visualización (puede regularse la duración de 
la pausa para ajustar el reloj). 


Desde la puesta en marcha con RUN, el programa se sitúa en espera 
de la hora; se pulsa a la siguiente señal sonora, y se espera la señal 
para pulsar NEWLINE. Entonces se visualiza la hora bastante 
rápidamente, y el reloj se pone en marcha. 

Para pararlo, se pulsará la tecla BREAK. 

La hora se introducirá bajo la forma de un entero que tenga, 
necesariamente, 4 cifras; para las 5 horas y 6 minutos, se tendrá 
cuidado de pulsar 0506, seguido de NEWLINE. 


POSIBLES EXTENSIONES: Será interesante modificar el programa, para confeccionar un 


despertador con alarma; también podrá mejorarse el grafismo, 
introducir color, utilizar la posibilidad del SPECTRUM de captar el 
tiempo, con el fin de tener una mayor precisión, etc. 
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RELOJ 1 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
18 INPUT A 10 PRINT “HORA ( FORMATO Xxxx 
25 CET MRUAL "6" > 
28 CET S2S0N PI 
27 LET Gam-S 
30 CLS 
40 LET Kus - PAPER 5. 
50 LET ARUAL ABI) 
69 PRINT AT 3,Fak-G; "MN" AnD ASK) 
AXIS AND Acr0-5 68 PRINT INK 1AT 5,F+R-G; ME 
20 FOR Jus TO G * AND A<>S AND A:>0-5 
30 PRINT AT JMak= 70 FOR J=5 TO G 
AMNOT PI) OR (A INT 30 PRINT INK 1;A7 
$0) LAO FORINT Pi AND C1A=0) (A03 
AND AL AT y PRI: "NM AND 
e óbinr 85 PRINT INK_1,M 
D (ANNOT PI OR Asseó E, 2No, (gz8 OR A= 
Mr4S4S) ¡TAB Pox-INT PI: ASF+454+5) ¿AT G4U-S, 
0348 Ac25+5 
98 NEXT y 98 NEXT y 
100 PRINT AT g/MeK-0+5; "MEE" ANO 190 PRINT INK 1;AT G,FaK-G+5: 
AIS;TAB +0" Mano As 
A 130 PRINT INR 15AT Fs Fans; 
ANO Ac>S AND Ac>G=3S AND Ae = AND Ac>3 AND A>3G-3 AND AL 
+ 
150 LET KaKeS 150 LET K=k+5 
170 IF K<G THEN GO TO CODE “mM” 178 IF _K<G THEN G0 TO 50 
178 36 ARUAL "08d" THEN Ler 375 AELASESb0 TuÉN Ler 5so 
e “THEN LET Ax 7 zi =l 
NOT PI 176 LET AS="080"+STRE A 
19 LES SRTARIENTa IES SON 
SARÍLEN AB-INT PI TO 3.50" 2 
"izo If ASLINT er TO ar 
4 3269" THEN he 
LEA GRS AS (URL ABOTO Ses) 28) 188 FOR JaS TO 115 
+ ea” $ A ha did 195 FOR 123 Er 16 
20 D0U9S dp age” cede Pega ro, 
152 TE NOTA THEN PRINT AT Gm. 
GN NiAr DIS, eo; 
195 ÑEXT 


EE 
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210 BEEP .7,10: 60 TO 30 
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El lobo y los corderos 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: FAST o SLOW. 

Dificultad de programación: difícil. 

Categoría del juego: de reflexión (para dos jugadores). 
Dificultad del juego: mediana. 


Es un juego bastante conocido y que puede practicarse indistinta 
mente en un tablero 8 X 8 0 en uno de 10 x 10. Aquí se presenta la 
versión de un tablero de 8 casillas; uno de los jugadores escoge el 
lobo, que se desplaza una casilla en cada jugada, siguiendo las 
diagonales, quedándose en las casillas negras y que puede avanzar o 
retroceder. 

Los corderos se desplazan igualmente por las casillas negras, en 
diagonal, pero no pueden retroceder. Están prohibidas las casillas 
que ya están ocupadas (no hay captura) y no existe el salto, Gana el 
lobo si consigue llegar a la línea de abajo antes de que todos los 
corderos ocupen la de arriba; ganan los corderos si sucede esto 
último o si consiguen bloquear al lobo. 


Una variable AS, en la línea 2, contiene las posiciones de salida. 
El bucle 1 (19-49) dibuja el tablero y las líneas 45 y 47 sitúan al lobo y 
a los corderos. 

La línea 59 controla el cambio de jugador. 

La línea 66 visualiza L cuando el turno es el del jugador que maneja 
al lobo, y C si se trata de su adversario. 

La línea 120 espera el movimiento del jugador. 

La línea 139 escogerá el programa que analice la respuesta, en 
función del jugador de que se trate. 


RUN provoca la parada, en espera de una introducción: M y 
NEWLINE, si se quiere que empiecen los corderos, y 1 para el lobo. 
Después de esto, se visualiza el tablero y la frase TURNO C para los 
corderos y TURNO L para la jugada del lobo. 

Los corderos responden con un número, seguido de D o de I (para 
derecha o izquierda). Así, 2D provoca el desplazamiento del cordero 
número 2, que sube en diagonal una casilla hacia la derecha. 
Se visualiza el desplazamiento efectuado, y después se obtiene una 
pregunta idéntica para el lobo, que contestará tecleando A, S, Xo Z, 
siguiendo la dirección escogida: 


== > 
L 


— Sl 


Deberá tenerse cuidado en no salir del tablero y no caer sobre el 
adversario, ya que no se ha previsto ningún control. 
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POSIBLES EXTENSIONES: Podrán preverse unos puntos de referencia de las casillas, un 

grafismo más cuidado, controles para no pasarse de los límites del 
tablero o para no ir a parar a una casilla ya ocupada. 
También podría considerarse jugar con un tablero de 10x 10 
casillas, lo que aumentaría ligeramente la dificultad de! juego de los 
corderos. De todas maneras, la ampliación más interesante que 
puede realizarse es, sin duda, la confección de un programa 
que permita al ZX comportarse como honroso adversario, ya sea 
como lobo o como corderos (y, en este caso, será posible definir una 
estrategia para que gane el ZX). 


EL LOBO Y LOS CORDEROS 


PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
2 LET As=" 2 LE? A$S=:8153959714" 
El APURE pae30B97ze 5 _PRINT “CORDEROS (0: O LOBO 
7? CLS 1 INPUT y 


7 PAPER 5: CLS 


EROS 
21,568 
ar Ter-SON BE/SON PL 
49 NEXT_1 
Da AT VAL 


SEN PTI. VAL 
val 


“TURN 


AND Nor, TN 
8 TF Y YMEN GO TO CODE “293 L ASI10)+4: 1 


2210" 47 PRINT IN 
AUAL 810 50N PE TOA (13=1,34UAL A 
PI AND gx "+ 10-SGN PI ASIS) 1, SEUA 
ASA ACeSON 07 AND Rs="A" UAL ASI5/-1,3 
PI_AND R$=" . 24UAL As 17j- 
TO 207 1579 CET ysaB 
209 LET C=UAL “2"+UAL RFISGN PI Tse PENA 23, 
AZUAL AS(C-SGN PITO C) LOBO 342, 
"AND aa O 1 TUAL * S CORDEROS 
1" ANO Rs(2 123 TAPUT es - 
qee? LET A$IC-= don PI TO C)<3TR5 139 IF _J THEN 60 TO 200 
mp 140 LET ASUAL ASIC-1 TO 1+(2+1 
Caso DOOM AND RE="X"I14+1C-1 AND Rgz= 10+ 
1 AND A ¿A"1-=1C0-1 AND AS : 
159 GO TO 207 
200 LET C=2*UAL RECI) 
205 LET A: 


AL AS (C-1 TO CI-:9 A 
ND As I21="0")-111 AND RriDra ni 
207 LET ASIC-1 TO CI=35TPS A 
219 60 TO 7 


4. on 


TURNO L 


ma 


RABCODEFR CR, 


JUEGO DE 1053 CORDEROS IND O MI) 
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REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Belote 


Modalidad: FAST. 

Dificultad de programación: mediana. 
Categoría del juego: juego de cartas. 
Dificultad del juego: fácil. 


El juego que se propone se trata, más bien, de una simulación que se 
realiza con 32 cartas, con una distribución de 4 paquetes de $ cartas. 
Podrá utilizarse para el estudio de problemas en los que intervengan 
distribuciones de 20 cartas sobre 32. 


En la línea 19 se confecciona un tablero que pueda contener las 20 
cartas. 

El bucle 1 (29-79) asegura la tirada aleatoria de 20 números, tomados 
entre 32; el bucle J (49-80) verifica que no se realice dos veces la 
misma tirada. 

El segundo bucle I (90-189) asegura, a continuación, la visualización; 
el nombre de las cartas se visualiza claramente, y el color se descifra y 
se visualiza en claro gracias a las líneas 117, 118, 129 y 123. 


Basta con pulsar RUN para obtener inmediatamente la visualización 
de 4 paquetes de $5 cartas cada uno (una distribución). 
Pulsando de nuevo RUN, se obtiene una nueva distribución. 


POSIBLES EXTENSIONES: Fácilmente podrá ponerse a punto una visualización más 


gráfica (sobre todo en el Spectrum); igualmente podrá utilizarse este 
programa como núcleo para la puesta a punto de programas de 
juegos de cartas por ordenador (el cual, si es necesario, podrá 
utilizarse como pareja: ver como ejemplo el PÓQUER en esta 
misma obra). 
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(545614 


As 


BELOTE 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 

DIM A(CODE "=") 19 DIM AL2O) 
LET K=SGN PI 15 LET k=1 
FOR I=K TO CODE “= 20 FOR I=kK TO 2 
LET A(I)=K+INT (CODE "4"+RN 38 LET ACI) =K+INT 

48 FOR J=k TO I-k 
FOR YaK TO I-k 58 IF ALIDZAL 
IF A(TÍ=A(J) THEN GO TO COD 68 NEXT y 
» 78 NEXT 1 
NEXT y 98 FOR I=1 TO 28 
NEXT 1 119 LET 5$="D1" 
FOR I=SGN PI TO CODE 113 LET S=14M(1)-84 INT 
LET S$="DI" 114 LET Re=STRS 
LET S25GN PIFA(I) VAL "S"eI 115 LET RS=RS1 TO 2) 


AMD VAL “ero 
LET RG=STRS (S4VAL "6" +” 


LET_ORS=RS(_ TO VAL “2r) 
IF S=UAL "S" TMEN LET Rs="U 


SaVAL "6" THEN LET RS="D 
S=UAL "7" THEN LET RS="R 
S=UAL "8" THEN LET RS=“A 
A(I) «=CODE "/" THEN LET 
IF A(I) <=CODE *(” THEN LET 
ACI) CUAL "8" THEN LETS 


PRINT AT_K VAL * til 
PIL/VAL "5 "ISR; " 


LET K=k+SGN PI 

IF K=UAL "6" THEN LET K=SGN 
NEXT 1 

PI 7 TR 58101  0A TR 
PI AS CO RE CO AS TR 
PI DAPI 7. DI AS DI 
DI 18 CÚ ASPI  VvACO 
TR 8 PI 9 PI  REDI 


117 1F 


127 1F A(1)<a16 
138 1F A(1) (28 THEN LET Sha"CO" 


180 


va 


yA 


PRINT AT KK SRINT ((1-13/8 
0) PAPER INT ((A(Ii-15/8) 
1559: SEFP 0.1,1 

ET KxK+1 

IF Kx26 THEN LET.K=1 

NEXT 1 
CO RECO % PI 10 TR 
co AS DI 8 co 7 RL 
CO 56 PI DADI ASTR 
TR 8 TR 7 DI 1901 
TR AS PI 10 co CA TR 


525 THEN 


LET Psz 
LET Rs 
LET R$ 
LETRAS 
THEN 


THEN LET S5="PI 


1.8) 
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Un cálculo fastidioso 


REFERENCIAS: 


Modalidad: SLOW o FAST. 

Dificultad de programación: mediana. 

Categoría del juego: de reflexión (para dos jugadores). 
Dificultad del juego: difícil. 


EL JUEGO: Se practica con dos jugadores; uno realiza la función de codificador y 
el otro la de decodificador. 
El codificador parte de un número (propuesto por el ZX) y debe 
transformarlo con la ayuda de 5 operaciones que él mismo escoge, así 
como Jos operadores. 
El resultado que ha obtenido y las operaciones utilizadas se 
visualizan en la pantalla; el decodificador deberá entonces intentar 
encontrar el número inicial, efectuando las operaciones en sentido 
contrario. 


EL PROGRAMA: La línea 5 permite obtener el entero inicial, comprendido entre 5 
y 20. 
Un bucle 1 (50-108) permite introducir sucesivamente las $ opera- 
ciones. 
Se utilizan 4 subprogramas para los cálculos (en las líneas 1009 
a 4900). 2 
Después de cada cálculo, se visualiza el resultado (solamente el 
codificador deberá mirar la pantalla durante esta operación), y 
el resultado definitivo quedará visualizado al final de los cálculos 
(línea 95), para el decodificador. 
La línea 149 visualiza las 5 operaciones utilizadas, así como los 
operadores correspondientes. 


PARA JUGAR: Se pulsa RUN para poner en marcha el programa. 
Se visualiza el número inicial, después la pregunta INTRODUCIR 5 
OPERACIONES, deberán introducirse una después de la otra, bajo 
la forma, por ejemplo: + 4, seguido de NEWLINE. 
El resultado se visualiza después de cada operación introducida. Al 
final, se visualizan en una misma línea todas las operaciones 
introducidas y se envía al decodificador el mensaje ÁNIMO (no 
existe control para la decodificación). 


POSIBLES EXTENSIONES: Desde luego, podrá mejorarse la parte de decodificación del 
programa introduciendo controles en el resultado; también puede 
considerarse dejar participar más tiempo al ZX, confiándole el 
cometido de la codificación, etc. 
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UN CÁLCULO FASTIDIOSO 


PROGRAMA ZX 81 


3 CL5 
S LET X=INT (RNDF15+5) 

19 PRINT ¿NUMERO INICIAL 

20 LET L=SGN 

38 PRINT INTRODUCIR S ORERACI 
ONES" 

39 LET F=x 

¿AQ PRINT “FORMATO +5 , 5... 

45 DIM RSS INT PI 

s8 FOR 1=L TO $ 

$0 INPUT ASI 

70 LET A=CODE RSII,L:- 

50 IF A«=NOT PÍ OR A:4 THEN 60 


TO sa 
de So sue ns1000 


PRINT/AT 4,L; “NUMERO OBTENI 


DO ";F 
190 NEXT_Y, 
198 PRINT “OPERACIONES” 
149 PRINT_R$(4);TAB S:R5(211:TAB 
AOIAU(S TAS 1SRG(S):TAD 20:R8 
150 PRINT “ANIMO” 
160 PAUSE 4E4 
179 RUN 
1880 LET F=P*UAL RS(I,Z TO ) 
1919 RETURN 
2088 LET F=F+UAL R$(I,2 TO ) 
2018 RETURN 
3009 LET F=F-VAL Re(1,2 TO > 
3018 RETURN 
4080 LET F=F/VAL R$(1,2 TO ) 
4010 RETURN 
NUMERO INICIAL 18 
RODUCIR 5 OPERACIONES 
FORMATO +6 , 7/5 ... 
NUMERO OBTENIDO O 
OPERACIONES 
Ya 5 "-10 +14 $2 
ANIMO 
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PROGRAMA ZX SPECTRUM 


3 CLS 

5 LET x=INT_(RND*15+5) 

18 PRINT INUERSE 1: "NUMERO INI 
CIAL INVERSE 0; *; FLASH 1;X 

28 LÉT'L=1 

38 PRINT “INTRODUCIR 5 OPERRCI 
ONES" 

38 LET F=Xx 

40 PRINT "FORMATO +0, /5 . .. 

45 DIM AS (5,9) 

58 FOR IL TOS 

59 INPUT ASI) 

79 LET A=CODE RS(T.L; -41 

80_IF Ac=0 OR Az3 OR M=5 OR A> 


5 THEN GO TO 60 


88 IF A>3 THEN LET A=iA/21+1 
98 60 SUB A-1009 
95 PRINY INUERSE 1:AT 4,L.“NUM 
ERO_ OBTENIDO "; INVERSE Qi  “; 
FLASH 1; PAPER S5;F; FLASM 0; PAP 
ER 
190 NEXT 1 
138 PRINT “OPERACIONES” 
140 PRINT PAPER 4¡P$(1);TAD 3;R 


$11) ;TAB 10;R$(5),TAB 1S:RSID':T 


AB 20, TEN 
158 PRINT "ANIMO" 
189 PAUSE 4Es 
178 RUN 
1800 LET F=F£UAL R$(I,2 TO? 
1019 RETURN 
2000 LET ESFAVAL RsiLL2 TO: 
2910 RETI 
3000 CET PSP-VAL RE(IJE TO) 
3010 RETURN 
4800 LET F=F-VAL R$/1,2 TO ) 
4010 RETURN 
18 
'ERACIONES 


NN ul 
FORMATO 46 , /S , ».. 


35 
IE 


+25 +7  *55 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Póquer 


Modalidad: FAST. 

Dificultad de programación: difícil. 
Categoría del juego: juego contra el ZX. 
Dificultad del juego: fácil. 


Se trata de la simulación de una partida tradicional de PÓQUER, 
realizada con un juego de 32 cartas, en la que el jugador tendrá como 
adversario al ZX. 

El jugador recibe 5 cartas, referenciadas por números del 1 al 5, y 
puede decidir el cambio de algunas de ellas, anunciando las que 
descarta. 


Se visualiza el nuevo juego, y a continuación es el turno del ZX. 


Las líneas 14 y 29 definen las cartas (con 1 en lugar de 10 y A en lugar 
de AS). 

Una variable N se dimensiona en 15, en la línea 39, para recibir las 10 
cartas del jugador y las 5 del ZX. 

Un bucle 1 (40-90) efectúa la tirada, y un bucle J (69-80) realiza el 
control. 

El subprograma 229-1068 efectúa la visualización de las cartas. 
Otro bucie 1 (159-170) realiza la segunda tirada del jugador; la línea 
180 permite la segunda visualización, y el bucle 1 (229-1950), donde 
después se le introduce directamente, realizará la visualización del 
juego de la máquina. 


La orden RUN pone en marcha la ejecución del programa, y se 
visualizan las 5 primeras cartas del jugador. 

A la pregunta DESCARTE, el jugador puede contestar $ seguido de 
NEWLINE, si quiere terminar la partida. 

Para jugar, responderá simplemente NEWLINE si considera que 
está servido o introducirá los números de las cartas que rechaza, 
seguido de NEWLINE. 

Por ejemplo, si teclea 235 y NEWLINE, su nuevo juego conservará 
las cartas 1 y 4. 

Entonces se visualizará su juego, así como el del ZX; este último no 
tiene, en este programa, la posibilidad de volver a tomar cartas. 
A continuación, bastará pulsar NEWLINE para empezar una nueva 
partida. 
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POSIBLES EXTENSIONES: Desde luego serán muy numerosas, desde una visualización 
gráfica en color de las cartas hasta una mejora en el juego del ZX, 
introducir reglas para apostar y hasta, ¿por qué no?, posibilidades de 


farol. 
PÓQUER 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
1 Cl 
rs OUADAR! 
2 
39 men 5 E 
38 DIM NÍ 
38 POR Im 
38 bp s IRND+52) 
R ye -1 
Al 1 THEN 60 TO $e 
20 NEXT y 
0] LE E CARTAS RECHA 
a mi 
108 555 
$ RECHA: UB 229 
119 90 140 1F Rá="2" THEN STOP 
140 75 150 FOR I=1 TO LEN Rs 
180 IR 160 LET NIVAL REI) =N114S-1) 
160 L 170 NEXT 1 
PI 175 CL 
179 NEXT I 189 69 suB 229 
178 CLS ¿ 200 K=1 
180 GO SUB CODE ' FAST 329 FOR 121 TO 5 
LET KÑyÁL "a" 1918 LET JeBeINT (NiTer 814a 
FOR Ix8S6N PI TO 3-56N PI 1018 CET RSERINIIANO BRENT IN LO 
a ET JRUAL "3" eINT (NITRO Y NES 
SÓN PI ' ASZYB IF TO M4) 
y PRUAL "Ene IN CIAXo AL 1838 BRINT ar Ep5tIzó; INVERSE 1 
INCT4K)/YAL "8" ¿Io INUERSE 0/Af x+2 5:1-5:R6, 
19 T AGUS LP TO F E AN EA 142 
E AT K seI-PI 2MRS Y TO Je PRINT AT 
É AT KISGN +3,S11- 
IR qq TÓ Y+3óÓN BI) 1059 NEXT 1. 
1089 Ni 1055 INPUT 
1085 INPU 1858 1 k THEN RUN 
1989 10 k THEN RUN 10680 RETURN 
1060 RETURN 


2... .1 ... 
a B 0] A 8 ud Ad E o ed 


AS TR VA DI BTR 800 8 PI 


28. ..o0aoau A 
19 TR DA DI RE PI AS PI AS CO Lie cd 2 Sh Ea 
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EL PROGRAMA: 


PARA JUGAR: 
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Hanoi 


Modalidad: SLOW o FAST. 
Dificultad de programación: difícil. 
Categoría del juego: de reflexión. 
Dificultad del juego: difícil. 


Se presenta aquí una versión para un solo jugador. Se dispone de un 
cierto número de discos (ocho como máximo), y hay que transferirlos 
desde la torre número 1 a la torre número 3, respetando una sola 
regla: en ningún momento, un disco podrá estar recubierto por otro 
disco de un diámetro superior. 

Este programa no contabiliza el número de jugadores; sin embargo, 
no se aceptarán las jugadas no válidas. 


La variable DS, en la línea 40, servirá para dibujar los discos. 
El número de discos se introduce en la línea 69, y se rechazará si hay 
más de 8 discos. 

El buche 1 (70-90) permite confeccionar una variable A (1), que 
contiene el estado de la pila en forma numérica (en la línea 5 están 
previstas tres variables numéricas, para conservar el estado de las tres 
pilas). 

La línea 119 dibuja los zócalos, y los bucles intercalados I (124-169) y 
J (125-159) dibujan las tres pilas. 

La línea 239 realiza el control de la jugada, y las líneas 249 y 250 
modifican el estado de las pilas. 


Después de RUN, que pone en marcha el programa, se introduce el 
número de discos, seguido de NEWLINE. 

Se obtiene el dibujo del estado inicial, y a la pregunta SAL., se 
responde dando el número de la torre de salida, No se aceptará este 
número (1, 2 o 3) si la torre está vacía. Después, se pulsará 
NEWLINE, y a la pregunta LLE., se contestará con el número de la 
torre de llegada. Si la jugada no es posible, será obligatorio volver a 
empezar en SAL. 

Si la jugada es posible, se realizará el desplazamiento y se vuelve a 
empezar. 


POSIBLES EXTENSIONES: Podrán dibujarse distintos colores, introducir un contador de 


jugadas y, sobre todo, definir un juego para el ordenador. También 
puede intentarse complicar el juego con dos varillas y dos jugadores, 
cada uno con discos de distinto color, por ejemplo. 
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HANOÍ 


PROGRAMA ZX 81 


1] 
E 


SOMA 
7 LETÚ 143) 

19 LET A 

20 CET A ÓN PII=U 

30 LET A 

49 LET D pr 

50 PRINT 

58 INPUT 

88 IF N> THEN RUN 

$8 Cer á Abt tas 

al 
ON PI) +STR 

20 NEXT 

108 CLS 

108 Ler 

110 PRINT 

cava 

120 POR 

138 FOR jes! 

137 LET Bsesta: 

130 IF LEN PI THEN PRE 
NT AT U-I $J=-U;DG( TO 
VAL BaiIsó PD 

150 NEXT 

160 NEXT 1 
ab20 PRINT AT coDe ¿NOT PI,"S 

198 TReuT O 
198 IF A(DÍaU THEN GOTO CODE “Ml 

190 PRINT “LLE” 

399 SNPUT a 

LET BassTRe AlDi 

239 CET CONSTR 

730 IF BECLEN REN 06 Tn 
EN goTo coo “yr 
240 LETA(A VAL (CO+BRILEN Bs) 

280 LET A(D)ÑNVAL BS TO LEN (88 
1=30N PI) 

268 GOTO 100 


SAL 
LLE 
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PROGRAMA ZX SPECTRUM 


TREN uN 
OR i TO 
se e ei) ZOAL TsTas AC ¿TA 
$. (N-II) 

438 NE NESE 1 

188 Lor 55 MI. 

110 PRINT ar ¿ES IN 1,25:TAB 
1 1;"1",TA 
14 
2 [=] 

RS RJ) 

1399 IF LEN B6>1+1 THEN PRINT AT 

U-1, (Us1) 9-0; INX 2,08: TO AL 

Beil+z)) 

150 NEXT 

169 NEXT 

dr: PRINT ar 14,0; “TORRE DE 3AL 

189 INPÚT 0: PRINT AT 24,1 

+7, 1" Ao) ul THEN BEEP 1, ES Poo 

499" PRINT AT 158,8; TORRE DE LLE 
100 INP PRINT AT 18,17:A 
10 LET B6=2TR8 A os 

ES N 

os ¡ 
EN Beño 1,0: 60 3 


260 LET ACADRUAL 1ÓS+BN (LEN Bm 
NS LET AD)RUAL BS: TC LEN (BH 
260 BEEP .2,10: 60 TO 100 


1 2 3 


TORRE DE SALI 
TORRE BE PLEGRDA 5 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Música 


Modalidad: SLOW. 

Dificultad de programación: mediana. 
Categoría del juego: juego educativo. 
Dificultad del juego: mediana. 


Se presenta como un ejercicio de aprendizaje del solfeo: el aparato 
anuncia una nota (en clave de sol), seguida de la mención GRAVE o 
AGUDA, según su emplazamiento en el pentagrama. 


Se responderá indicando sobre qué línea se visualizará la nota. 


Se dibuja entonces la nota en el pentagrama, seguida del mensaje 
BRAVO o HA PERDIDO, según se haya acertado o no. 


El bucle 1 (10-39) dibuja el pentagrama. 

Un segundo bucle 1 (44-6H) visualiza los números de las líneas. 
La línea 79 define el nombre de las notas, y la línea 80 realiza la 
extracción aleatoria de una de ellas. 

El nombre de la nota se calcula en la línea 85 y se visualiza con la 
línea 99, seguida de la mención GRAVE o AGUDA, según el caso. 
La respuesta se introducirá en la línea 119. 

La línea 115 se ocupa del desciframiento de la respuesta. 

La línea 129 visualiza la nota. 


La línea 134 comprueba si se ha ganado o se ha perdido y visualiza el 
mensaje correspondiente. 
Las líneas 149 y 159 permiten hacer un nuevo intento. 


Se pone en marcha el programa con RUN. 

Se obtiene entonces la visualización del pentagrama, así como el 
nombre de la nota que tiene que situarse y la pregunta LÍNEA. 
Se responde dando un número de línea (de 1 a E), seguido de 
NEWLINE. 

Se dibuja entonces la nota, y el mensaje BRAVO o HA PERDIDO 
aparece en este caso en la pantalla. 

Puede pulsarse cualquier tecla para continuar, y se terminará 
pulsando BREAK. 


POSIBLES EXTENSIONES: Puede ampliarse a otra clave, además de la de sol, así como 


introducirse color, sonido, etc. 
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MÚSICA 


PROGRAMA ZX 81 


5 CcL5 
19 FOR IxSGN PI TO 5 


PRENT AT 4+I+1, INT PI;" 
ds 17 I 


49 FOR IzSGN PI TO d4 
59 PRINT AT I+2,NOT PI¿CHAS 


12 


110 INPUT LS 
115 LET L=CODE LS-28 


120 PRINT AT X,PI+PI; "MC; AT x+S 
ON PI PIAPI “NAT X+2.PIAPI; 
139 PRINT AT CÓDE “2"-NOT Pi 


RAYO" AND tax; HA PERDIDO” AÑÓ L 
So 
140 PAUSE 4E4 
150 RUN 

í 
2 
3 
4 MIUNNDANDAS 
s 
6 
E 
3 
9 
A 
B 
C MENO 
0 
ES 
NOTA LA GRAVE 
LINEA 
HA PERDIDO 
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PROGRAMA ZX SPECTRUM 


S CL5 
10 FOR 1=1 TO 5 


29 PRINT INK 15AT 4+1+1,5; “MEN 


NE 
40 FOR I1=1 TO 14 
50 PRINT AT 1+2,0;1 AND Lc= 
1+2,0CHRS (5841) AND 139 
88 NEXT I 
70 LET NS="SI LA SOLFA MI PE D 


59 LET X=INT (RND+14+1) 

85 LET TeX=1-?RINT (iX=2)/7) 

90 PRINT AT 18,8: "NOTA ":Ng13+ 
141 TO 3*T+3);" AGUDA" AND X:27; 
* GRAVE” AND X> 
108 PRINT “LINEA :*; 

118 INPUT LE: PRINT Ls 

145 LET L3[CODE LecaSiF ies 
+ (CODE 19-55) + (Lg 


“3 


120 PRINT_INUERSE 2: INK 2;¿AT 
x10;"[ "87 X+1,10; Bj AT X42.10 
0": BEER 1.80%x 


130 PRINT AT 20,8:"BRAVO” AND L 


=X "HA PERDIDO" AND L<:X 
140 PAUSE 4E4 
159 RUN 
1 
2 
3 
+ ONES 
E 
a A 
3 mea! 
á 
6 
C MENA 
[7 
E 
NOTA SOL GRAVE 
LINEAR :A 
BRAVO 
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Ahorcado al revés 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: SLOW. 

Dificultad de programación: mediana. 
Categoría del juego: juego sobre palabras. 
Dificultad del juego: fácil. 


El ahorcado es un juego de letras muy conocido, que ya ha sido 
presentado en esta obra; en él se trata de adivinar una palabra 
escondida por el ordenador, que a cada letra no descubierta va 
acercando el jugador a la horca. Aquí, es el ZX el que tratará de 
adivinar la palabra, pero juega un poco al azar y no posee la intuición 
del jugador; así que, por regla general, tendrá que efectuar muchos 
intentos para descubrir la solución. Para aumentar sus posibilidades, 
se ha buscado una forma que le permita utilizar mucho más las 
vocales, después las consonantes más corrientes y, por último, 
las consonantes más raras. 


La línea 19 permite grabar en una variable alfanumérica B$ las letras 
del alfabeto en el orden: vocales, consonantes corrientes y otras 
consonantes. La palabra que hay que adivinar se introduce en la línea 
50 (de hecho, basta con introducir su longitud). 

El bucle 1 (60-99) imprime las rayas en el emplazamiento de las letras 
que hay que encontrar. 

La pausa, en la línea 195, sirve únicamente para simular el tiempo de 
búsqueda de una letra. 

La fórmula, situada en la línea 110, permite modificar ligeramente la 
probabilidad de la extracción en favor de las vocales y de las 
consonantes corrientes. 

La línea 139 provoca una nueva extracción en el caso de que la letra 
ya hubiera sido probada. 

La línea 160 visualiza la letra escogida, y el bucle 1 (179-208) vuelve a 
imprimir las rayas y las letras encontradas. 

La línea 2/5 incrementa el contador de intentos. 

La línea 219 visualiza, al final de la partida, el número de intentos 
realizados. 


Poner en marcha el programa con RUN. 
Introducir la palabra que hay que descubrir, seguido de NEWLINE. 


Entonces se visualizan las rayas (una por letra), y el ZX propone una 
primera letra, mira si le conviene y continúa así automáticamente 
hasta que la haya encontrado. 
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Se puede terminar el programa en cualquier momento pulsando 


BREAK. 
POSIBLES EXTENSIONES: 


Sin duda, será interesante para los niños prever una versión 


no automática, en la que el jugador respondería SÍ o NO a cada letra 
propuesta por el ZX; también podrá añadirse una visualización 
gráfica, por ejemplo, una horca o un coche avanzando hacia un 


precipicio, etc. 


Con un minidisquete, el ZX podrá guardar las palabras utilizadas 
más corrientemente por los jugadores. 


AHORCADO AL REVÉS 


PROGRAMA ZX 81 


10 LET Dg$="YAEIOUSCOFG: 
vuñaQLET DS 'ULMNPARST 
LET C=NOT PI 

Era 
Su PALABRA" 


E Tr 

FOR I=SéN pr TO,LEN As 
PRINT AT S,1, 

A 


PRINT AT PI*PI,NOT PI: "BUSC 

“¿INTENTO * 

PAUSE 

LET 
1 


CODE “ll 
X=8% (PND. 7: + 138 (RNDG.5 


AEND+3GN PI) 
THEN GO TO 129 


ex 
LET DEOO e" 
ETE AT ¿ode 's 


EDR I=SON PITO LEN a 


NOT PI; "T 
IF ESSRSCI) THEN CET Feina 


PRINT_AT 5,1;T61 
NEXT 1 en 


SU PALABRA 
BUSCO... INTENTO 8 


TOMO :E 
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PROGRAMA ZX SPECTRUM 


19 LET 0$="VAEIDUSCOFGULNNPAST 
UUHKOXZ" 
20 LEr co 
38 LET Tge"" 
GRINT «SU PALABRA" 


¿1 
LE Tantas 


38 PRÍNT INYERSE 1: TUK AAT 1 
0,0; "BUSCO..." ;" INTENTO "¡0 
105 PAUSE 15 

130 LET Ree (RNO<,774134 (RND<.5 


SS 
133 Ter Lan CEARNO RA 
228 TF 0300 ="-" THEN 50 TO 110 


¿Qi INVERSE 4: 1 
NK 2;"TOMO "¡FLASH 1,Es. BEEP 


FOR _I=1 TO LEN RE 
IF ES=PS (1) THEN LET TSID= 


POINT AT 6,T5T8C1 


20s LEN 
238 TE TESRE THEN PRINZ, TOVEESE 
1; BRIGHW 2, “ENC 
y BEER 

1,12: BEEP 1,18: BEÉP 1.5 S5TCF 
239 60 TO 1 

SU PALABRA 

PROGRAMA 

EEN 

aun 

A AS 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Mateo 


Modalidad: SLOW o FAST. 

Dificultad de programación: fácil. 

Categoría del juego: dibujo aleatorio. 

Dificultad del juego: ninguna. 

Se utilizan la definición de una curva en coordenadas polares y la 
función PLOT para obtener en la pantalla dibujos aleatorios (del tipo 
flor), más o menos elegantes (el PLOT del ZX Spectrum es, por 
supuesto, mucho más preciso que el del ZX 81). 

Los dos parámetros principales, A y B, podrán, si es preciso, 
introducirse a mano (instrucciones INPUT) para hacer un estudio 
más sistemático de las distintas curvas posibles. 


La línea 14 permite definir el radio máximo, y la línea 29 corrige este 
parámetro a fin de utilizar la superficie de la pantalla lo mejor 
posible. , 

Evidentemente, podrán modificarse estos dos parámetros, teniendo 
en cuenta que queden dentro de los límites de la pantalla. 

Las líneas 39 y 40 definen dos variables aleatorias A y B, escogidas 
aquí entre O y 3; el trazado de las curvas dependerá de estas variables; 
podrá modificarse el intervalo de los valores o incluso introducirlos a 
mano escribiendo 39 INPUT A y 44 INPUT B. 

El bucle I (109-145) realiza el trazado punto por punto; el radio R se 
calcula en la línea 119, y las líneas 129 y 139 efectúan el paso en 
coordenadas cartesianas (imprescindibles para PLOT). 

La línea 149 realiza la impresión de los puntos. 

La línea 159 visualiza el mensaje ACABADO. 

Las líneas 160 y 179 permiten la ejecución de otro dibujo, tan pronto 
como se pulse una tecla. 


Se pone en marcha el programa pulsando RUN. 

El dibujo se ejecuta automáticamente. 

El mensaje ACABADO (abajo, a la izquierda) anuncia el final del 
trazado. 

Para realizar otro dibujo pulsar cualquier tecla. 

En la versión Spectrum, debe pulsarse Y para borrar el dibujo 
anterior (si no, el nuevo dibujo se superpondrá al antiguo). 

Se pulsará BREAK para salir del programa. 
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POSIBLES EXTENSIONES: Podrán utilizarse otras muchas funciones para realizar 
dibujos aún más extraordinarios (por ejemplo, dibujos que simulen 
una tercera dimensión). 


MATEO 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
5CLs 5 BORDER _S: BRIGMT 1. CLS 
10 L 19 LET 227 
201 20. LET Kzx8B 
LET 30 ter T=3 
E dl Ea AR romo 
» y 
130 he dd 109 FOR M=0 TO PI*2 STEP FI"180 
lía Ler (31) 118 LET R=Z4+SIN (MAT) 
y +30 LEr INT" (KERECOS (AFI) ye LET X2120+INT (K+R*COS 1ARH 
130 LET Yag4+INT (K4RASIN (B41) y. LET Y2=90+INT (KERASIN (3H) 
158 PLOT x,Y 
169 NEX 
“ACABADO” +4 


So TO 40 


ACABADO ACABARO 
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Máquina de palabras 


REFERENCIAS: Modalidad: SLOW o FAST. 
Dificultad de programación: fácil. 
Categoría del juego: juego de azar (sobre palabras). 
Dificultad del juego: ninguna. 


EL JUEGO: Este programa tan corto permite al ZX demostrar su capacidad para 
manejar cadenas de caracteres: se parte simplemente de un prefijo y 
de un sufijo de origeri griego, los cuales se ensamblarán al azar, Se 
caerá por supuesto, de vez en cuando, en palabras absurdas o hasta 
ligeramente equívocas. 

En cada prueba se confecciona una palabra nueva, aunque también 
es posible obtener varias veces la misma palabra. 


EL PROGRAMA: La línea 10 permite introducir la lista de prefijos en una variable A$ 
(naturalmente podrán incorporarse otros prefijos, que no tengan más 
de $ letras, añadiendo blancos en caso necesario). 

La línea 29 contendrá, de la misma forma, la lista de sufijos, que se 
sitúan en otra variable alfanumérica BS. 

La línea 30 realiza la elección al azar de un prefijo. 

La línea 40 efectúa la elección al azar de un sufijo. 

La línea 50 visualiza la palabra obtenida, y la línea 79 permitirá 
volver a empezar la jugada. 


PARA JUGAR: Poner en marcha la ejecución del programa con RUN. 
Se visualiza inmediatamente una primera palabra. 
Para obtener una nueva palabra, se pulsará cualquier tecla (menos 
BREAK), entonces se visualizará otra palabra, a continuación de la 
anterior. 
Pulsar BREAK para salir del programa. 


POSIBLES EXTENSIONES: Fácilmente podrá aumentarse la lista de palabras disponibles 
(en el ZX Spectrum, será preferible utilizar instrucciones DATA, 
Que servirán para que no se produzcan problemas con la longitud de 
las palabras). 
También podrá utilizarse un procedimiento análogo para que 
construya frases el ordenador, hacer que invente poemas, etc. 

, También podrá transformarse el programa inicial en un juego de 
sociedad que consistiría, por ejemplo, en hacer apuestas sobre la 
próxima palabra que tenga que aparecer. Y, eventualmente, confiar 
la gestión de las apuestas al ZX. 
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MÁQUINA DE PALABRAS 


PROGRAMA ZX 81 


19 LET AS="ANDROCOSMOMICPOMEL I 
2 PEDOPORNOPALEOMACRON y DROSTENOP 
ATHO OLEOMYTHOHMOMEO OCTO* 

20 LET BsS="CRATEPHILEPHOBETROP 
EGYNE MANE NAUTEPRAGEFUGE PÁTHEC 
ARDEDERMESCOPEVORE PHONE* 

30 LET I=5*+INT ((LEN 8-5) RAND 
1+56GN PI 

49 LET Y=S+INT C/LEN BSS1+AND 
1+56N BI 

59 PRINT ASII TO 1+4)+B5:J) TO 
U+g) 

60 PAUSE 4E4 

78 60 TO 36 


STENOSCOPE 
OLEOPATHE 
MICRODERME 
HONEOPHOBE 
COSMOPHMONE 
HOMEOFUGE 
ANDROVORE 
PORNOPHONE 


MYTHOSC 


Bo 


PROGRAMA ZX SPECTRUM 


10 LET AS="ANDROCOSMOMICRONELI 
O PEDOPORNOPALEOMACRONYDROSTENOR 
ATHD OLEOMYTMOHOMEO OCTO" 

20 LET Bs="CRATEPHILEPHOBETROR 
EGYNE MANE NAUTEPMAGEFUGE PAÁTHEC 
ARDEDERMESCOPEVORE PHONE" 

38 LET I=S+INT (ILEN AB/5) ¿AND 


+1 
40 LET J=S+INT ((LEN BÉ/5) ¿RAND 


si 
50 PRINT INUERSE 1; INK INT (5 
PRND+ 2) AMII TO 144) eBH(y TO vsé 


$9 BEER .9,18: PAUSE 4Es 
78 60 To'26 


Y 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Componer 


Modalidad: SLOW o FAST. 

Dificultad de programación: fácil. 
Categoría del juego: composición musical. 
Dificultad del juego: ninguna, a priori. 


Se trata, en efecto, de un programa capaz de componer música de 
una manera muy elemental, de forma completamente aleatoria. El 
ordenador, en un primer momento, dibujará un pentagrama, 
después visualizará una sucesión de notas (que van del DO grave al 
Sl agudo) y dará su nombre. Se visualiza a continuación una nueva 
serie de notas, y así sucesivamente. 


El bucle 1 (19-30) dibuja el pentagrama. 

La variable NS, en la línea 40, contiene el nombre de las notas. 
En la línea 6P, el segundo bucle 1 (59-109) permite escoger una nota 
de forma aleatoria; la línea 79 calcula su nombre, y la línea 8 dibuja 
la nota. 


El nombre de la nota se visualiza en la línea 99. 
La línea 110 permite volver a empezar. 


Poner en martha la ejecución del programa pulsando RUN. 
Entonces se visualizará rápidamente el pentagrama, después se 
representan las notas, con su nombre visualizado en la parte inferior 
de la pantalla. 

Una presión en cualquier tecla provocará la visualización de una 
nueva serie de notas, y una presión en la tecla BREAK provocará el 
final de la partida. 


POSIBLES EXTENSIONES: Podrán afingrse las reglas de composición, visualizar más 


notas, introducir sostenidos y bemoles, mejorar el grafismo (sobre 
todo, en la versión para el ZX Spectrum), hacer sonar la melodía 
visualizada (esto se realiza en la versión Spectrum, pero las notas no 
corresponden realmente a las notas visualizadas: deberán volver a 
calcularse los intervalos). 
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COMPONER 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
Ss cis Ss CLs 
10 FOR I=5GN PI TO S 18 FOR I=1 TOS 
EL PRINT AT INT PT+ io NOT Pr 20 PRINTINK Sar 3411 0, E 
E 38 NEXT 1 
30 NEXT I 409 LET N$2"SI LA SOLFA MI RE D 
40 LET N$="5I LA S5OLFA “4I RE D Lo 
pon 59 FOR I=1 TO 10 
50 FOR I=SGN PI TO 10 69 LET X=INT (14+RND+1) 
50 LET X=INT (14+RND+36N PI> 70 LET DSENB IDA (XT A 7112 
NS (INT Pla «71% -7) O 34 1(X-74 1(X>7))) 
3-2 TO INT PIé(X-7*(X>7)115 80 PRIN NUERSE_1 x 
89 PRINT AT xX-SGN PI.INT PIsI- -1,3+1-3; ¿ATX,3+1 xk 
INT PIU: ¡ATOX INT PISI-INT Pl; +13 1-9: 
3 AT Xx+SGN P1,INT PI+I-INT PI; SOERINT AT 20,3+$1-3.10$. BEEP 
,4.,20-X 
PRINT AT 20,INT PI+I-INT PI 100 NEXT_I 
119 PAUSE 4E4 
NEXT_1 120 RUN 
PRUSE 4€4 
RUN 


MI $1 RE FA SOLDO $1 30451 31 RE SILA FADO FA LA 31 RE CO 
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REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Nicomaque 


Modalidad: SLOW o FAST. 

Dificultad de programación: mediana. 

Categoría del juego: juego de reflexión (cálculo mental). 
Dificultad del juego: mediana. 


Utiliza una propiedad algo particular de los enteros del 1 al 100, que 
pueden identificarse, sin ambigiedad, por sus restos en las divisiones 
por 3, 5 y 7. 

El programa que aquí se propone es un programa codificador que 
simplemente visualiza los restos de un entero N dado en las divisiones 
indicadas. 

El juego consiste en intentar descubrir el entero (pero, en esta 
versión, sólo puede efectuarse un intento). 


La línea 19 permite confeccionar el entero N. 

El bucle 1 (29-70) calcula los tres restos sucesivos, y el bucle 
intercalado J (40-68) permite visualizarlos en el emplazamiento 
apropiado, bajo una forma bastante visual. 

La línea 89 está para indicar de qué división se trata. 

El número propuesto por el jugador se introduce en la línea 190; se 
visualiza por la línea 195 y se comprueba en una variable lógica R$, 
que permitirá después la visualización del final de la partida 
(BRAVO o HA PERDIDO). 

La línea 129 realiza la visualización del final. 

Las líneas 139 a 159 se ocupan, según la respuesta del jugador, de la 
gestión de la siguiente partida. 


Se pone en marcha el programa pulsando RUN. 

Se visualizarán en la misma línea los tres restos, simbolizados por 
puntos (la ausencia de puntos significa: resto 0). 

A la pregunta SU PRUEBA, se responderá dando un entero 
comprendido entre O y 100, seguido de NEWLINE. 

Se obtendrá en respuesta una visualización HA PERDIDO o 
BRAVO, y después la pregunta OTRA PARTIDA ¿(S/N)? 

Se responderá 0 seguido de NEWLINE para hacer una nueva 
prueba. 


POSIBLES EXTENSIONES: Puede considerarse la realización del programa descifrador 


(se dan los restos y el ZX deberá presentar N) y buscar si puede 
ampliarse la propiedad (efectuando, por ejemplo, más divisiones). 


142 


102 PROGRAMAS PARA ZX 8l Y SPECTRUM 


NICOMAQUE 


PROGRAMA ZX 81 


5 CS 
10 LET X=INT (1004RNC+S5GN PIF 
28 FOR I=5GN PI TO INT PI 
28 _LET A=X-(1+1+56N FI) *INT (x 
SUTFIESON PIO 
49 FOR U=5SGN PITO AR 
$9 PLOT 1S:Ie2EJ9d. 2 
60 NEXT 
58 NEXT Y 
80 PRINT AT 18-NOT PI: "RESTO"; 
TAB 9;"POR 3“;TAB 17: “POR $ TAB 


S0,PRINT AT 16,NOT PZ."SU PRUE 


100 ÍNPUT N 

105 PRINT N 

110 LET Rg= "BRAVO" AUD N=0 +0" 
MA PERDIDO" AND N<>x5 

120 PRINT RS 

¿130 PRINT “OTRA PARTIDA (5/N: 7 


140 INPUT R$ 
159 IF R$="S" TMEN AUN 


o 


RESTO POR PORS PoR 7 


SU PRUESA :22 
BRAVO 
OTRA PARTIDA (S/N) 7 
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PROGRAMA ZX SPECTRUM 


BORDER 4 
=INT_(LOOéRND+27 

To 3 

AIF T410 INTO 1x1 IST 


To A 
CIRCLE 60*I+5+J+15,3 


d: INK 2er 1 
hon Sci TAS 17 


po 25 
SO PRINT AT 15,0 SU PRUEBA 

198 INPUT N 
105 PRINT ON 
110 LET RA=I"BRAVO" AND ON=AI Sl" 
HA PERDIDO” AND N<>x1 
120 PRINT FLASH 1; BRIGHT 1:99 
BEEP 1,18 
130 PRÍNT “OTRA PARTIDA (5/16 
140 INPUT RS 
150 IF Rá="S" THEN RUN 


00 000009 
SU PRUEBA :23 
HA PERDIDO 
OTRA PARTIDA (S/N) 7 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


102 PROGRAMAS PARA ZX 81 Y SPECTRUM 


Permutaciones 


Modalidad: SLOW o FAST. 
Dificultad de programación: mediana. 
Categoría del juego: de reflexión. 
Dificultad del juego: mediana. 


El ZX solicita primero el número de letras que se quieren permutar 
(no más de 12). A partir de aquí, va a visualizar el número 
correspondiente de letras, tomadas del principio del alfabeto, 
primero en desorden (PRINCIPIO), y después en orden (FINAL). 
Debe lograrse ordenar las letras dadas al principio utilizando las 
permutaciones sobre las n primeras letras a partir de la izquierda, con 
el menor número de intentos posible. 


La línea 30 permite escoger el número de letras, y la línea 49 controla 
que no se pidan más de 12. 

La línca 66 realiza la mezcla, escogiendo al azar la nueva posición de 
cada letra. 

A continuación, las letras se incorporan en una variable B$ 
(línea 78); a medida que van saliendo, se suprimen en A$ y se 
vuelven a poner en orden en C$ (líneas 75 y 80). 

La línea 9 controla el número de letras de B$. 

Las visualizaciones se realizan en las líneas 100 y 115, 

La inversión se hace letra a letra, en el bucle 1 (149-160); el resultado 
se sitúa en BS, en la línea 170, se visualiza por la línea 189 y se 
compara con el resultado final en la línea 199. 

El número de pruebas se visualiza al final de la partida, gracias a la 
línea 290. 


Después de pulsar RUN, se obtiene la visualización de la pregunta 
NÚM. DE LETRAS (DE 1 A 12); se responde pulsando N, seguido 
de NEWLINE. 

La visualización siguiente presenta el orden inicial (PRINCIPIO) y el 
que debe obtenerse (FINAL). 

Se juega indicando el número de letras que tienen que permutarse a 
partir de la izquierda, por ejemplo: en una visualización inicial de 
GEABDFC, si se pulsa 3 y NEWLINE, se obtendrá AEGBDFC. 
Se continuará hasta obtener el orden deseado. 

La puntuación se visualizará al final de la partida, lo mismo que la 
pregunta OTRA PARTIDA (S o N); se contestará S si quiere 
realizarse otra partida. 
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POSIBLES EXTENSIONES: Podrá utilizarse, por ejemplo, el mismo tipo de juego para 
reconstruir un dibujo escondido, cuyas distintas partes serían 
localizadas por letras. También pueden realizarse permutaciones más 
complejas (por ejemplo, el hecho de permutar dos letras provocaría 
la permutación de las dos letras más próximas de la que está más a la 


izquierda, etc.). 


PERMUTACIONES 


PROGRAMA ZX 81 


28 PRINT. “NUMERO DE LETRAS IDE 
1812)" 
39 INPUT N 


35 LET Cáx" 
49 IF NLE es THEN Run 
50 LET B: 
69 LET x= (RAND+N+4SGN PI0 
e AE IF Ag “* THEN 60 TO COD 
70 LET B +84 
75 CET € TES) 
20 LET A ile 
85 LET Sal PI 
e 98, 1F LEN B6ON THEN 00 TO COD 
95 LET C TO LEN BS) 
100 PRINT NCIPIO BS," FI 
EN 
119 LET Ss N_ PI 
115 PRINT »SGN PI: "PERMUTAC 
ION“ ¡S 
120 INPUT L 
130 LET Asi" 
140 FOR I=SGN PI TO 
150 LET AS=A$+BS (L-1 N PD 
189 NEXT 1 
170 LET B$=A$+B% (L+5GN PI TO 
180 PRINT “RESULTADO -":8$ 
199 IF Bs:)08 THEN GO TO 108 


209 PRINT ENCONTRADO EN "95, 
PRUEBAS 
>218 PRINT “OTRA PARTIDA (5 0 N) 


"200 INPUT AS 
230 IF As="5" TREN RUN 


NUMERO DE LETRAS IDE 1 4 12) 
PRINCIPIO .EBCFAD 
FINAL -ABCDEF 


PERMUTACION :9 
RESULTADO :ABCDEF 
ENCONTRADO EN 9 PRUEBAS 
OTRA PARTIDA 15 0 N)7 


PROGRAMA ZX SPECTRUM 


5 CLs 
10 LET AS="ABCDEFGHIJKL " 

29 GRINT, “NUMERO DE LETRAS (DE 
1 ñ 

38 INPUT N PRINT ON 

40 1F N212 THEN RUN 


¿9 3 PRINT 
Bs PRINT “FINAL 


E BnznT AT 4,0,"RESULTADO ";S 


El Bs 
112 BER TL ,19: PAUSE 5: BEEP 1. 
10, EQUSE 3 hemo, 10: PRINT AT 


12 
136 PhrnT AT 7,1; "PERMUTACION 
INK "2,5 


As= 
128 FOR Tiro L 


150 LET AS=AS+BR(L-141) 
178 LEFT DeSaRPBe(Lez TO 

al 
180 PRINT INK_2;AT 12, 3; RESULT 
QaO +1, PARER Ti INK 1. FLASH 1; 
s 


190 IF Bs(>C6 TMEN GO TO 105 
209 PRINT “ENCONTRADO EN ";5-1; 
PRUEBAS”: 

,210 PRINT “OTRA PARTIDA (5 0 N) 


220 INPUT 
2390 IF A 


$" TMEN RUN 


NUMERO DE LETRAS (DE 1 “4 12) 
PRINCIPIO .EBCFAD 
FINAL * ABCDEF 


PERMUTACION :9 
RESULTADO :ABCDEF 
ENCONTRADO EN 9 PRUEBAS 
OTRA PARTIDA (5 0 Ni? 


NUMERO DE LETRAS (DE 15 12: 5 
PRINCIPIO -REFDBC 
FINAL ABCDEF 


RESULTADO 2 :BLDFER 


PERMUTACION :2 


RESULTADO :BCDFEA 
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REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


102 PROGRAMAS PARA ZX 81 Y SPECTRUM 


Juego de cartas 


Modalidad: FAST o SLOW. 

Dificultad de programación: difícil. 

Categoría del juego: juego de prestidigitación. 
Dificultad del juego: fácil. 


Es un juego bastante clásico, pero aquí es el ZX el que manipula las 
cartas y el que realiza la función de prestidigitador; se visualizan 21 
cartas tomadas al azar de un paquete de 52, y el jugador deberá 
retener mentalmente una de las cartas presentadas. Después, debe- 
rá indicar al ZX en qué columna (1.", 2.* o 3.*, a partir de la 
izquierda) se encuentra la carta escogida; las cartas vuelven a 
distribuirse y el jugador indica nuevamente la columna correspon» 
diente a su carta; esto volverá a repetirse una vez más, y a la 4.* 
visualización, el ZX estará en condiciones de adivinar la carta 
escogida (en la versión del ZX 81 no se designa la carta debido a la 
falta de memoria, lo que permitirá asombrar fácilmente a las 
amistades, siempre que se recuerde que la carta se encuentra en el 4.* 
lugar de la 2.* columna). 


El bucle 1 (29-80) permite escoger al azar 21 cartas entre 52, y el 
bucle intercalado J (40-69) permite asegurar que no se efectúa dos 
veces la misma extracción. 

La línea 109 contiene los colores de las cartas, así como los nombres 
de las figuras (V, D, R y A), en una variable alfanumérica BS. 
El bucle I (119-160) realiza la visualización del juego. 

La línea 122 descifra el color de la carta; la línea 138 escoge la 
posición de la visualización, y la línea 149 descifra la altura. 

La visualización propiamente dicha se efectúa en la línea 159. 
La línea 179 permite al jugador introducir el número de la columna 
en la que se encuentra la carta, El bucle J (185-195) realiza la mezcla, 
y los bucles intercalados J (280-240) e 1 (218-239) confeccionan la 
nueva variable AS, que tendrá que utilizarse en la siguiente 
visualización. 


Se pone en marcha el programa con RUN. 


Se obtiene una primera visualización de 21 cartas, repartidas en 3 
columnas. 


Entonces, se indica el número (1, 2 o 3) de la columna donde se 
encuentra la carta escogida, seguido de NEWLINE. 


Se obtiene una segunda visualización y se hace lo mismo, y después 
una tercera visualización, repitiendo la misma operación. 
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A la cuarta visualización, la carta escogida se encuentra en la 4.* 
posición de la 2.* columna (el ZX 81, en su versión de 1K, no permite 
indicarla, pero sí se indica en la versión Spectrum, más completa). 
Se saldrá del programa pulsando STOP seguido de NEWLINE, en 
lugar del número de la columna. 


POSIBLES EXTENSIONES: Se considerará una mejora en la visualización escribiendo los 
nombres completos de las cartas o, también, dibujando verdaderas 


cartas en color. 


Asimismo, pueden probarse otros juegos utilizando el mismo 
principio de base, pero con más cartas, etc. 


JUEGO DE CARTAS 


PROGRAMA ZX 81 


Lua: 

N_PI_TO INT PISO 
HRS INT (CODE "£"+C 
NP 
(y) 


1_TO LEN AS 
THÉN SO TO 200E 


38 


y 


's 
TRDICOPIVURA" 
N PITO LEN As 
IT C(CODE A$ 11) -CODE 
ña 
'N 


OMOMAMA O 


Sois 


ANO_T De 


5 
É 
PTA, ¿Tison 
5+53N PITO 


+2 
EZDODDICTOTACZOZ ARONA 


182 LET B6=" 


SON_PI_TO Q4UAL REIN+JJ +0) 
195 NEXT 4 
197 LET As="" 

200 FOR J=aNOT PITO R 
210 FOR I=SGN PI TO O 

229 LET AS=AS+BRLINT FIsI-Rel 
299 NExT 1 
240 NEXT J 
258 GO TO CODE “CO5 


VA DI 7 TR 2 DI 
RE FI O9 PI O3 PI 
- RECO 4 CO 5 PI 
6 26 S CO RE DI 
8 TR 7 01 DAPI 
UA PI AS TR 4 PI 
S DI LACO RE TR 


TP BGIR+SE 


PROGRAMA ZX SPECTRUM 


LET As" 

CET R= 

LET Q= E 

FOR I=1 TO 24 

LET BS=CHRS INT (33+S524RND) 
IR J=1 TO LEN As 


"TRDICOPIVADAREAS * 
TO LEN AS+F+11+NOT 


NT ((CODE AS (1) -38)7 


-13+5 
INVEOSE 
%, INUER 


NEXT _1 
IF NOT P THEN STOS 
INPUT "QUE COLUMNA 


LET BG=BS+AS (DUAL REINA 
DIVAL PRSINLJ) +01 
NEXT 4 


€ TF NOT H THEN LET A$=5% LE 


1 P=0: GO TO 108 
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197 
209 
210 
229 
239 
249 
258 


LET AS="" 


FOR TOR 

FOR TO 0 
LET_AS=ASABS (AIR) 
NEXT 1 

NEXT _J 

60 TO 100 


S DI 1001 AS 01 
9 61 3 C0 6 PI 
2 DI S TR 3 TR 
2 TR AS PI DADI 
4 TR 9 CO 10 FI 
4 01 DarRI 5 PI 
le Có 4 PI? có 
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NIVEL 4 


N.* 


Nombre del programa 


Tema y particularidades 


1 
2 
3 
4 


Tirada de dados 
Juego de la lotería 
La bomba 

Pizarra mágica 


Anuncio publicitario 


Evasión 
Sombreros 
Combate aéreo 


Dibujo de dados 


El juego del misil 
El mono 


El juego del 15 


Destreza 
Submarino 


Diago 
Topología 
Dar caza al submarino 


El lagarto de Alicia 
Calculadora 


Suficientemente flexible para utilizarse en todas partes. 

Ganar en la siguiente tirada, sin problemas. 

¿Sabrá encontrarla a tiempo? (para un jugador). 

Para poner a punto sus creaciones gráficas, sin papel ni 
Mpiz. 

Utilizar las posibilidades de tratamiento de cadenas del 
ZX. 


Hará falta mucha suerte para tener éxito. 

Sea muy observador y tendrá éxito (para dos jugadores). 

¡No es tan fácil derribar un aparato que se mueve todo el 
tiempo! 

Para mejorar los juegos de dados incorporando este 
programa. 


¡Una misión muy peligrosa! (para un solo jugador). 


Un juego de letras para dos jugadores, en el que hacen 
falta buenos reflejos. 


Un juego de reflexión, en el que se utilizan cifras (para dos 
jugadores). 


Juego de reflexión muy visual, para un jugador. 
Un clásico de los videojuegos (para un jugador). 
Un juego extravagante, pero muy visual (para un jugador). 
¿Está realmente seguro de sus reflejos? (para un jugador). 


Una dirección a explorar, para otros juegos (uno o dos 
jugadores). 


Harán falta muchos reflejos y mucha suerte. 
Mucha suerte, aunque muy espectacular (para un jugador). 


Un programa de simulación que podrá fácilmente ser 
mejorado. 


149 


102 PROGRAMAS PARA ZX 81 Y SPECTRUM 


Animación 


REGISTRO DE CARACTERES TECLEADOS : INKEY$ 


El principio de un juego gráfico, en animación, se basa en que debe desarrollarse a solas, 
de una cierta manera y durante un determinado tiempo, mientras el jugador no haya 
realizado ninguna intervención. 

Debe, pues, disponerse de la posibilidad de detectar si ha existido intervención del 
jugador o no, sin por ello interrumpir el desarrollo del programa. 

En el Basic Sinclair, se ofrece esta propiedad por medio de la función INKEYS$, que 
realiza una exploración de todas las teclas y graba el nombre de la última tecla pulsada. 

Podrán utilizarse INKEYS de dos maneras: 


-- en un bucle (realización de un movimiento), se comprueban los INKEYS$ para salir, 
llegado el caso, del bucle; 

— mientras INKEY$ está vacío (no se ha pulsado nada) se espera y se sale cuando se pulse 
algo. 


Eventualmente, podrán producirse problemas de rechazo (principalmente en el ZX 81 
al descifrar el carácter cogido por INKEY$. 


DESPLAZAMIENTO DE OBJETOS 
DE ABAJO ARRIBA DE LA PANTALLA: SCROLL 


Si se trabaja en Basic, es difícil gestionar el desplazamiento simultáneo de varios objetos 
sobre la pantalla (en caso contrario, se obtiene rápidamente una animación irregular, debida 
a un tiempo de desplazamiento prohibitivo). 

El Basic del ZX 81 dispone de una instrucción que permite poner remedio a esto y que 
puede utilizarse en numerosos juegos: se trata de la instrucción SCROLL, que simplemente 
hace subir una línea, hacia arriba, los diversos objetos (textos gráficos) que están presentes 
en la pantalla en el momento de su ejecución. Evidentemente, la línea de arriba se pierde. 
Esto permite simular la subida hacia arriba de la pantalla de un conjunto de objetos, con 
borrado automático de la posición anterior. Por supuesto, un objeto que debería 
permanecer inmóvil al emitirse un SCROLL, deberá dibujarse de nuevo permanentemente 
en su buena posición (y borrado de la mala, salvo si está en lo alto de la pantalla). 

El ZX Spectrum no dispone de una instrucción SCROLL, aunque lo realiza a petición 
cuando la pantalla está llena; podrá aprovecharse esta propiedad reemplazando el SCROLL 
del ZX 81 por una secuencia adaptada del juego considerado. 
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Tirada de dados 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: FAST o SLOW. 
Dificultad de programación: ninguna. 
Categoría del juego: tirada de dados. 
Dificultad del juego: ninguna. 


El programa que se propone no realiza un juego por sí mismo, pero 
podrá utilizarse como subprograma para numerosos juegos. 
Ofrece simplemente la posibilidad de tirar de 1 a 9 dados por simple 
presión de una tecla. Los dados se visualizan después, con un 
grafismo muy simplificado. 


La línea 29 capta el carácter pulsado en el teclado y lo transforma en 
número (si no es posible, el programa se para con un mensaje de 
error). 

Una variable D se dimensiona en la línea 35, para recibir el valor 
indicado para cada dado. 

Un bucle J (43-45) se utiliza para dibujar un fondo gris, y otro bucle 
I (40-89) sirve para la tirada (tirada en la línea 50 e impresión en la 
línea 70). 

Las líneas 90 a 119 ofrecen la posi 
líneas no son indispensables. 


lad de volver a tirar; estas 


Se pone en marcha el programa por la orden RUN y se obtiene la 
visualización NÚMERO DE DADOS PARA TIRAR, al que se 
responde tecleando una cifra. 

Entonces el resultado se visualiza automáticamente, bastará pulsar 
cualquier tecla para volver a empezar el programa. 

Para parar necesariamente se pulsará BREAK. 


POSIBLES EXTENSIONES: Podrá utilizarse el boceto proporcionado por este programa 


para la realización de todos los juegos en los que se precisen dados 
(421, YAM'S, CRAPS, etc.). 
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TIRADA DE DADOS 


PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
19 PRINT “NUMERO DE DADOS PARA 5 G0 TO 108 
TIRAR” 19 PRINT AT 0,0; “NUMERO DE DAD 
15 PAUSE 4£4 03 PARA TIRAR 
20 LET N=UAL INKEYS 15 PAUSÉ 4E4 
30 CLS 20 LET N=UAL INKEYS 
235 01m D(N) 38 PRINT AT 0,28;N 
49 FOR I=SGN P1 TO 35 DIM D(N) 
49 FOR J=5GN PI TO 49 FOR TON 
44 PRINT AT 8+J,34 43 FOR Y=i TO 3 
4d 341" AT 8+0,3+ 44 PRINT INK 2:87 8+J,3+1-4; 
45 NÉXT y 843,341, "E" ¡AT 843. 34141); 
50 LET D(I)=INT_1R 
70 PRINT AT 10,3+1 NEXT Y 
B9 NEXT I LET D(I)=INT (AND+2; +1 
90 PAUSE 4E4 70 PRINT INK 2, INVERSE 1,AT 1 
108 CLS 0,3+1,D(1) 
118 GO TO 10 890 NEXT 1 
93 BEER 3,10: BEEP .3,18: SEE 
P3. 


108 PAUSE 4E4; PAPER 5 CL5 
118 60 TO 10 


NUMERO DE DADOS PARA TIRAR :5 
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El juego de la lotería 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: FAST o SLOW. 

Dificultad de programación: fácil. 

Categoría del juego: de azar (para varios jugadores). 
Dificultad del juego: fácil. 


Se trata de realizar una tirada completa de lotería; es decir, hay que 
obtener 6 números, comprendidos entre el 1 y el 49, más un número 
complementario, todos distintos, que podrían, por ejemplo, utilizar- 
se para llenar las casillas de un juego de lotería. 


Se utiliza una tabla N (7), dimensionada en la línea 19, para grabar 
los resultados. 

La tirada de los números se efectúa en un bucle 1 (29-78); un segundo 
bucle J (40-60) se utiliza para comprobar que no se realicen dos 
tiradas idénticas. 

La tirada (o la nueva tirada) se efectúa en la línea SU. 

El bucle I (90-110) visualiza el resultado, y la línea 120 el número 
complementario. 

Las líneas 139 a 150 se ocupan del caso, cuando se quiera volver a 
realizar otra partida. 


Basta con pulsar RUN para poner en marcha el programa y obtener 
la visualización de una primera lotería. 

La pregunta ¿QUIERE OTRA TIRADA ($ o N)? se visualiza en la 
parte inferior de la pantalla; se responderá $ si se desea continuar. 


POSIBLES EXTENSIONES: Puede imaginarse un programa que podría tener en cuenta 


sus propios resultados o los resultados introducidos por un jugador, 
con el fin de mejorar la tirada, teniendo en cuenta las probabilidades 
de sacar un número dado. 
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EL JUEGO DE LA LOTERÍA 


PROGRAMA ZX 81 


¿AND+4991) 
THEN GO TO 39 


PRINT AT 3,5; "TIRADA DE LOT 


99 FOR I=1 TO 6 
PRINT AT 5,4+I+3/NII) 


NEXT 1 

120 PRINT AT 3,1; "NUMERO COMPLE 
MENTARIO :"¿N07Í 

138 PRINT ÁT 12,1; “QUIERE OTRA 
PARTIDA (3 0 N)7" 

140 PAUSE 4E4 
150 IF INKEYS= 


" THEN RUN 


TIRADA DE LOTERIA 


36 20 25 26 17 4s 
NUMERO COMPLEMENTARIO :39 
QUIERE OTRA PARTIDA (3 0 NM)” 
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PROGRAMA ZX SPECTRUM 


0] 

DIM N17> 

FOR I=1 719 7 

LET NITM=INT (RND4$9+1) 

FOR J=i TO I-1 

IF ON(ID=N(J/ THEN 60 TO 

NEXT Y 

NEXT Y 

PRINT INK 2; FLASH 2,AT 

¿“TIRADA DE LOTERIA" 
98 FOR I=1 TO 6 
100 PRINT PAPER 6: 

TILAT 3 4eI+3NCI) 
110 NEXT 1 

128 PRINT AT 18,1; “NUMERO COMPL 

EMENTARIO vi ÍNK S7 FLASH 2:5N 

DP, DEEP .4,10: BEER 4,15: SEE 
138 PRINT INVERSE 1,AT 15,0; 0U 

IERE OTRA PARTIDA (5 0 Ni>* 

140 PAUSE 4E4 

150 IF INKEYS="S" THEN RUN 


30 


INK 1, ERIGH 


TIRADA DE LOTERIA 


47 48 3 48 4 


NUMERO COMPLEMENTARIO 


43 
42 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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La bomba 


Modalidad: FAST o SLOW. 
Dificultad de programación: mediana. 
Categoría del juego: solitario. 
Dificultad del juego: mediana. 


Debe encontrarse, con la ayuda de un detector especializado, un 
paquete radiactivo con trampa que un viajero con malas intenciones 
ha colocado en una habitación de un hotel. El único problema, pero 
muy importante, es que el hotel tiene un millón de habitaciones 
(100 * 100 * 100). 

El detector visualiza permanentemente una señal que informa sobre 
la proximidad de la bomba y el tiempo que queda, descontado de 10 
en 10. 


¿Podrá descubrirse la bomba antes de que haga explosión? 


Una variable numérica R se dimensiona en 3, en la línea 39, a fin de 
contener las tres coordenadas que definen la posición del jugador. 
La posición de la habitación en la que se encuentra el paquete, se 
define por un cálculo aleatorio de tres variables A, B, C, en las líneas 
AD, 50, 52. 

El bucle 1 (55-62) dibuja el detector. 

La señal de aproximación se calcula en la línea 63, y la línea 94 
permite la visualización de las coordenadas de la habitación que debe 
descubrirse, en el caso que se haya perdido. 

La línea 120 permite la visualización simultánea de la señal y del 
tiempo que queda por transcurrir. 

La línea 114 realiza el descuento del tiempo. 

La línea 129 controla si se ha encontrado o no. 

El bucle I (140-180) permite introducir las nuevas coordenadas, 
utilizando el subprograma situado en las líneas 209 a 219. 


Después de la puesta en marcha del programa con RUN, se 
visualizan la señal y el tiempo (en principio 200). 

Entonces, el jugador se encuentra en la posición x = 0, y = 0,z =0, 
y deberán introducirse sucesivamente las tres coordenadas x, y, z de 
la habitación que debe explorarse. 


Por ejemplo, se pulsará 13, después NEWLINE, 45, después 
NEWLINE, etc. 


Se visualiza entonces la nueva señal, y se reduce el tiempo en 10. 
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Se continuará así hasta dar con el resultado (parada del juego y final 
del programa) o hasta la aparición de tres números (x, y, z) sin 
salida del programa, lo que significa que se ha perdido. 


POSIBLES EXTENSIONES: Será indispensable, sin duda, mejorar el grafismo, añadir una 


explosión (sonora y visual) para simbolizar la explosión, visualizar 
simbólicamente la posición del hotel, etc. 


PROGRAMA ZX 81 


29 LET 
23 LET 
39 Dim 
40 LET 
50 LET 
$2 LEr 
55 FOR 
$50 PRI B 
¡AT_6,1, 
62 NEX 62 NE : 
63 LEY +B 63 LET S=ABS (ÍA LIBICEL) GRA 
GN PI) /L NT PI A A aL)7 
ed 1F N PRINT AB, IF NOT T THEN PRINT INK 4; 
95 PRI Bj" FLÁSn ee ige¿o; “Ha PEREIDO, lA 
100 PRI NT PI,S;TAB 13; «3.0: 
_ BEER ,3, o. pÉE 12? 
119 LEY TaT-INT SOR L Ss ERi 
120 IF NOT S THEN STOP 109 PAINT AT S/3/$/0r 5.13; FLA 
130 PRINT AT _SQR L,INT_PI 157 
DÚAT 18 INT PxGO— VO0LAr Lom uo LET OTsT-INT S9R L  BEEP 3,1 
149 FOR I=5QN PI TO INT PI 120 IF NOT_S THEN PRINT 97 ¿3,0 
160 LET As ¡[PAPER 2, FLASH 1: "BRAVO" 
120 SosuB ¿oDE “cos ¿ATOS Binoox 
2739 LEY OR(II=VAL RS 'T 


108 NEXT 1 
190 GOTO CODE “z" 
200 PRINT AT 0+281,7;" 


205 PAUSE 4E4 
£L0 IF CODE INKEY$=118 TMEN PET 


TO 63 
229 LET PE=RgtINKEVS 200 PRINT AI Ss2ez O, Tur a; EL 
240-eato (con ASA 1 IN FLASA 0 RS 
"205 PAUSE 4E4 
219 1F al Yes 13 THEN SEEP 


:3,.19: RETUI 
22 ler RecRa+InnEVS 
240 66 TO 208 


07 PREEBO 
-x> xXx :7 12 
- 1 778 -Y 734 
- 2 788 -2:7 58 
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Pizarra mágica 


Modalidad: SLOW o FAST. 
Dificultad de programación: fácil. 
Categoría del juego: dibujo. 
Dificultad del juego: fácil. 


Como el título parece indicar, se trata simplemente de utilizar la 
pantalla del televisor como una pizarra, manejando un punto en 
la pantalla que sigue 8 direcciones, con la ayuda de las teclas del 1 
al 8, siguiendo las direcciones: 


También se dispone de la posibilidad de desplazar el punto en la 
pantalla sin dejar rastro, pulsando la tecla Y (esto también permitirá 
el borrado parcial), y podrá volver a incluirse pulsando 9. 


Para borrar completamente un dibujo deberá pulsarse la tecla P, y 
para conservar un trazado en la impresora se saldrá del programa por 
BREAK antes de pulsar COPY. 


La línea 109 realiza la visualización de un punto en la pantalla. 
Las líneas 169 a 179 captan al vuelo la tecla que se ha pulsado (de 0 a 
9, lo mismo que P). 

La línea 259 llama a uno de los subprogramas que efectúan el 
desplazamiento. 

Las líneas 309 y 359 controlan que no se salga de la pantalla. 
La línea 370 permite borrarlo todo, si se pulsa la tecla P. 


Se pone en marcha el programa pulsando RUN; después puede 
desplazarse el punto que aparece abajo, a la izquierda de la pantalla, 
utilizando las 8 teclas de desplazamiento. 

La tecla Y permite desplazar el punto sin que deje ningún trazo (se 
borrará un trazo anterior si se pasa por encima del mismo). 

La tecla 9 permite registrar el desplazamiento. 

La tecla P lo borra todo, y vuelve a empezarse. 

Para salir del programa se pulsará BREAK. 
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POSIBLES EXTENSIONES: Podrán considerarse posibilidades particulares para trazar 
rectas, círculos, dibujar con varios colores, mejorar la finura del 
trazo, etc. Si es necesario, podrá añadirse un programa que salve el 
dibujo obtenido, para una posterior utilización. 


PIZARRA MÁGICA 


PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
5 CLS 
13 LET X=10 
20 LET Y=x 
89 LET_ 320 
199 PLOT X.Y 
> 150 PAUSE ¿Es 
THEN GOTO s08 160 IF INKEYS="0" THEX 50 TÚ se 
: THEN GOTO se o 
HEN RUN 165 IF INKEYS="9" THEN GO TO 38 
0 is: -s0 166 Erá= RO 
153 
LET Bay 190 
250 GOSUB 1000*( (VAL INKEVS) +24 290 
1E-5GN PI) 1 250 
000 LET_C=x ¿NOT PI AND xc40 Ano 390 
Y 2NOT PI AND y ANO Y 
380 Le HOP E THEN gosue ¿S009 350 1F 
379 1F_S THÉN UNPLOT A. 379 
¿00 GoTO 108 200 
500 LET S=5GN PI EE] 
518 GOTO 198 si 
1009 LET Y=Y+F 1969 
2000 LET X3x+F 2000 
2010 URN 2019 
3es8 GosUB 2008 3000 
4209 LET Yzar-F 4000 
4010 RETURN 4018 
Seg LET X=A sezo 
5019 LET Y=B 5010 
5020 RETURN 5020 


Pre” 
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Anuncio publicitario 


REFERENCIAS: Modalidad: SLOW o FAST. 

Dificultad de programación: mediana. 
Categoría del juego: anuncio publicitario. 
Dificultad del juego: ninguna. 

EL JUEGO: Se introducirá un texto cualquiera al principio del programa. Podrá 
ser relativamente largo (4 o $ líneas); a continuación, se escogerá el 
sentido y la velocidad de desfile, después de lo cual aparecerá el texto 
(una sola línea a la vez), gue empezará a desfilar a la velocidad y en el 
sentido escogidos. 

EL PROGRAMA: — El texto se introduce en una variable PS, en la línea 39. 

Se truncará la visualización en 32 caracteres como máximo, gracias a 
la línea 139. 

El desfile a la izquierda se prepara en la línea 159 y el desfile a la 
derecha en la línea 169. 

El texto se visualizará en la línea 149, y la duración de la visualización 
(velocidad de desfile) se escoge en la línea 179. 


La línea 175 permitirá cambiar, si es necesario, las condiciones de 
desfile. 


PARA JUGAR: Se pone en marcha el programa con RUN, y ante la visualización de 
la pregunta SU TEXTO, se introducirá el texto que debe aparecer, 
seguido de NEWLINE. 

Después se obtiene la visualización SENTIDO D o l, a la que se 
responderá tecleando D o I seguido de NEWLINE. 

Después, a la pregunta VELOCIDAD, se responderá introduciendo 
un número pequeño para una velocidad rápida, y un número grande 
para una velocidad lenta (por ejemplo, de O a 40 o más). 

El texto empieza a desfilar cuando se pulsa NEWLINE. 

Si se quieren cambiar las condiciones de aparición del texto, basta 
con pulsar la tecla 0 para volver a encontrar las preguntas SENTIDO 
y VELOCIDAD. 

Se pulsará BREAK para interrumpir el programa, 


POSIBLES EXTENSIONES: Podrá introducirse color, realizar una visualización ondulan- 
te, hacer subir las líneas en la pantalla, etc. 
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ANUNCIO PUBLICITARIO 


PROGRAMA ZX 81 


PRINT “INTRODUCIR El TEXTO" 

PRINT 

INPUT P$ 

LET Pr=Ps+" o” 

PRINT “DESFILE D OQ 1 

INPUT 5$ 

PRINT “DERECHA” AND 5$(1 
“IZQUIERDA” AND S$11/="1" 

PRINT 

PRINT "UELOCIDAD DE Y A 50" 

INPUT Y 

CLS 

CET U=51-4 

LET_TaLEN 


s 
IF T>CODE "2" 


149 PRINT_AT_INT 
PHISGN PI TO TA” 


THEN LEY T=C0 
I.NOT PI9 + 


159 IF 36(S6N PI)="1"_ THEN LET 
PS2P5(2 TO LEN PE) +PSISGN PI 

160 IF S5(SGN PÍ)="D" THEN LET 
pSSPSILEN PS-SON PIISPGISGN FIT 


O LEN PS-SEN PI 
178 PAUSE Us+PI 
175 IF INKEY 
188 GO TO 14 


" THEN GO TÚ 40 


HASTA LA VISTA 


ERASE 


>» WN LOBITO BUENO UNA Y 


161 


PROGRAMA ZX SPECTRUM 


19 PRINT "INTRODUCIR EL TEXTO" 
20 PRINT 
39 INPUT PE: LET PE=" “epger o" 
-LET ASPE 
40 PRINT “DESPILE D 0 1"; 
59 INPUT $$ 
50 PRINT. DERECHA: AND 911 
"IZQUIERDA" AND S$1Li=" 
PRINT 
PRINT “VELOCIDAD DE 8 A 50" 
INPUT U: LET U=sS1-0 
BORDER 4: PAPER 56 INK 2: C 


LET_OTALEN AS: LET_05:As 
JF 7>38 THEN LET T= 
PRINT INK 2;AT 3,0 ATTE 


To meo 
159 IF S$(1)="I" THEN LET Pg=P% 


(2 TO LEN PSI+PS(1) 

160 1F S$(1)2"D" THEN LET Pe=Pk 
(LEN P$-1)4P: TO LEN Pr-2) 

178 PAUSE U 

175 1F INKEYS="0" THEN GO TO 40 
188 Go TO 14. 


ERASE UNA VEZ , UN LOBITO BUEN 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Evasión 


Modalidad: SLOW. 

Dificultad de programación: fácil. 
Categoría del juego: solitario. 
Dificultad del juego: fácil. 


El único problema es lograr atravesar la pantalla sin ser tocado antes 
por uno de los numerosos obuses explosivos que dispara el ZX. 
Se puede desplazar en 4 direcciones (con la ayuda de 4 flechas), y 
debe lograrse salir del terreno por el borde derecho sin haber sido 
tocado ni una sola vez. 


Las líneas 5 y 7 definen la posición de salida del jugador. 

La línea 19 escoge la coordenada horizontal de la casilla donde el ZX 
va a disparar (unida a la posición del jugador), y la línea 29 escoge la 
coordenada vertical (arbitraria) de esta casilla. 

El desplazamiento del jugador está controlado por las líneas 79 y 89; 
su trayectoria se traza por la línea 60, y su posición actual (una 
H invertida en la pantalla) se imprime por la línea 9D. 

La línea 100 mira si se ha tocado o no. 

La línea 119 efectúa el control del final de la partida. 


Se empieza la ejecución del programa por RUN. 

Tiene lugar el primer disparo cuando aparece el jugador representa- 
do por una H invertida. 

Las 4 teclas de dirección (5, 6, 7, 8) sirven para que el jugador se 
desplace. 

Si es tocado, se obtiene en la pantalla el mensaje HA PERDIDO, y 
la partida termina. 

Si logra salir por la derecha de la pantalla sin ser tocado, se obtiene el 
mensaje BRAVO, y la partida se acaba igualmente. 

Puede acabarse en cualquier momento pulsando BREAK. 


POSIBLES EXTENSIONES: El color y un grafismo más cuidado mejorarán considerable- 


mente la atracción del juego; también se podrá conseguir que el tiro 
de las bombas sea más aleatorio, introducir obstáculos que deban 
rodearse, añadir controles, hacer participar a varios jugadores, etc. 
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EVASIÓN 


PROGRAMA ZX 81 


a 


s 
90 PRINT AT x,Yo "E: 


188 TP ADS (HAN) TABS UK-24 (21 
=X1)cu4 THEN PRINT "HA PERDIDO"; 


y 
119 IF Y«39 THEN GOTO 10 
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PROGRAMA ZX SPECTRUM 


5 LET X=10 
7 LET Y=8 

LET H=92 (1-4) +184PND 
LET K=1584RND+3 


39 FOR J=1 TO ?7ARND+3 
48 INK 2: PLOT M+SERND-2,X+64R 
BEEP .3,-20: PRINT A 
+ CINKEYS="6") - LINKEY 
Ler Y =Y + (INKEYE="5"") - (INKEY 
PRINT FLASH 1; INe SAT XyY 
o rr abs (H-8Y1+065 INSEi2a 
-X))<212 THEN PRINT INK 0; FLASH 
1;“HA PERDIDO": BEEP .3.10: SEE 
P 3.18: BEEP _.3,8: STOP 


119" 1F v:38 TMEN GO TO 10 
129 PRINT INK 1: FLASA 1 
“STOP 


“BRAVO 


BRAVO 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Sombreros 


Modalidad: SLOW o FAST. 

Dificultad de programación: bastante fácil. 

Categoría del juego: juego de reflejos, para dos jugadores, 
Dificultad del juego: fácil. 


La idea es muy simple: dos personajes se desplazan en la pantalla, 
uno hacia el otro, y se cruzan. En el momento en que se cruzan, es 
posible que se intercambien los sombreros. 

Se trata de ser el primero en decir si ha habido intercambio de 
sombreros o no durante el cruce. 


Las líneas 19 y 29 contienen el dibujo de los dos sombreros (en dos 
variables alfanuméricas B$ y CS). 

La línea 3% contiene, en otra variable AS, los símbolos que 
permitirán dibujar los personajes. 

Las líneas 64 a 89 permitirán el intercambio de los sombreros, si tiene 
lugar. 

La variable T de la línea 9 sirve para comprobar si ha habido 
intercambio o no. 

El dibujo de los dos personajes se realiza por un bucle I (130-169) y 
su desplazamiento por las líneas 174 y 189. 

La comprobación que permite el cambio de los sombreros o no se 
efectúa en la línea 110. 

Las líneas 199 a 219 determinan si el primer jugador que ha pulsado 
una tecla ha ganado o ha perdido. 


Poner en marcha el programa con RUN. 

Inmediatamente, los personajes empiezan a desplazarse uno hacia el 
otro, 

El jugador de la izquierda dispone de las teclas 1 y 2, y el de la 
derecha de las teclas 9 y Y. 

Si han cambiado los sombreros, las teclas que deberán pulsarse serán 
1 (a la izquierda) y Y (a la derecha). 

Si no ha habido cambio, será necesario para ganar pulsar 2 (a la 
izquierda) y 9 (a la derecha). Entonces, la visualización indicará 
BRAVO IZQUIERDA o BRAVO DERECHA, o también HA 
PERDIDO IZQUIERDA o HA PERDIDO DERECHA. 


POSIBLES EXTENSIONES: En un aparato como el Spectrum, será posible prever una 


visualización en color, con animación de los personajes. También 
podrá complicarse el juego, cambiando varios objetos de forma 
aleatoria (entonces debería encontrarse la lista completa). 
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SOMBREROS 


PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 


(T-SGN PI; 


130 FOR I=5GN PI TO 7 

¿40 PRÍNT AT NOT PI,x;Cs;AT NOT 
150 PRINT AT I,XGABCINT PIsI-2 
TO_INT PIsI)¡AT 1,Y¡ASLINT PIsI- 
2 TO INT _PIxi) 

168 NEXT 1 

178 LET X=X+S0N PI 

160 LET Y=Y-SGN PI 


162 PAUSE 39 182 PAUSE 30: IF X= THEN BEER 
'Y AND RND<.S THEN GOTO 1,19 
LES 17 XV ANDORND</S THEN T 
187 1P INKEYS MEN GOTO 125 
190 1F (INKEYS= AND 7) OR (1 187 IF INKEYS="" THEN 30 TO 125 
NKEYS="2" _AND_NOT _T) THEN PRINT 198 IF (INKEVS2a"1' AND TO DR (1 
“BRAVO IZQUIERDA"; NKEYS="2" AND_NOT 7) THEN PAINT 
200 IF (INKEYS2"0" AND T) OR (1 FLASH 1; "BRAVO IZQUIERDA": STOP 
Ye" NO NOT T) THEN PRINT 200 IF (INKEYS="0 ANO Ti DR (1 
dl A Ep Cao 
a < 
El Le Eaoa 
Ad El RECHA" 
1 =0" 


. a 


HA PERDIDO DERECHA MA PERDIDO IZOUIEROR 


165 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


102 PROGRAMAS PARA ZX 8l Y SPECTRUM 


Combate aéreo 


Modalidad: SLOW. 

Dificultad de programación: mediana. 

Categoría del juego: juego de reflejos (para un jugador). 
Dificultad del juego: difícil. 


En el centro de la pantalla está la mira del aparato, y el avión 
enemigo se desplaza por delante, de una manera que, al principio, 
puede parecer incoherente. 

El aparato puede desplazarse en todas las direcciones gracias a las 
flechas de movimiento, y hay que intentar colocar al avión enemigo 
en el centro del visor. 

Hay que disparar sobre él pulsando 0, y se verán converger los 
proyectiles sobre el avión. Pero continúa desplazándose incluso 
cuando se le ha disparado, y no está claro que se haya dado en el 
blanco. 

La partida continuará su desarrollo hasta que se le haya tocado 
(visualización GANA) o haya salido del campo de visión. 


La línea 49 dibuja el aparato enemigo, cuyo desplazamiento 
aleatorio se realiza en las líneas 50 y 60. 

Las líneas 79 y 89 permiten pilotar el propio aparato. 

La línea 109 dibuja el visor del aparato. 

El subprograma que gestiona el disparo va de la línea 219 a la línea 
280, y la comprobación del final de la partida se efectúa en la 
línea 278. 


La línea 114 comprueba si se ha disparado o no. 


Desde que se pone en marcha el programa con la orden RUN, debe 
maniobrarse para intentar encuadrar el aparato enemigo en el visor. 
Para esto se dispone de flechas de desplazamiento (teclas 5, 6, 7 y 8), 
y puede dispararse en cualquier momento pulsando la tecla O. 
El aparato enemigo puede continuar desplazándose de forma 
aleatoria, aun cuando se le ha disparado. La partida termina con la 
visualización de GANA si se ha tocado el avión enemigo, O 
excepcionalmente por el hecho de que el aparato enemigo salga de 
los límites de la pantalla. 

También puede pararse la partida en cualquier momento pulsando 
BREAK. 
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POSIBLES EXTENSIONES: Será bastante fácil realizar una visualización con un grafismo 
más cuidado, utilizando color. También podría estabilizarse la 
posición del avión enemigo durante el tiro (bastará con modificar 
la línea 169), así como introducir varios aviones, contar los puntos o 
el tiempo, tener en cuenta la propia reserva de carburante, etc. 


COMBATE AÉREO 


PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 


7 AMINT PI 


PRINT B E 

y 50 Ler AuñeseiNt (SARND) -SON P 

y 90 LET BoBeSHINT (34RND) -SON P 
78, JET Amñs (INKEVE="8") - (INKEY 


Y 0) =CINK ae AT UU 
BrB+(INKEY B="8") - (INKEV 188 £3301 Ei ar HE e mar 
tri 110 E PaEve2toro N+S4$ TMEN 
$9)9uE 200 


a 
ca let bol BES PLOT a rigen—o! an 
320 PLOT “172cdsn den 


ODE 
E ASÍL A LO THEN BRINT ER 4: “"EANADO. 2 
ETA Apio seat z y BEER (2/10: BEEP .5,18: BEER . 
mp 3 TÁ 
280 COTb coDE "7 SE 


ae 
en 
”.e 
x 
es 
A a uu. 
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Dibujo de dados 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: SLOW o FAST. 
Dificultad de programación: difícil. 
Categoría del juego: tirada de dados. 
Dificultad del juego: fácil. 


El programa propuesto es interesante sobre todo por su aspecto 
gráfico, ya que permite representar en la pantalla, de una manera 
muy acertada, de 1 a 4 dados, utilizando una técnica de dibujo algo 
particular. 

Cada respuesta a la pregunta NÚM. DE DADOS provoca inmedia- 
tamente una nueva tirada del número de dados indicado. 


La línea 39 permite controlar si se ha pulsado o no una de las teclas 
del 1 al 4, 

Las líneas 59 y 69 inicializan las dos variables del dibujo de los dados. 
El bucle 1 (79-149) y las líneas 89 y 109 dibujan el cuadrado del dado. 
La línea 85 realiza la tirada, y el bucle J (98-139) dibuja los puntos en 
relación con la tirada efectuada (llamando a las variables A$ y BS). 


Se pone en marcha el programa con la orden RUN, y a la pregunta 
NÚM. DE DADOS, se responde pulsando una tecla de 1 a 4. 
Entonces, los dados que se han pedido se representan, y vuelve a 
realizarse la pregunta NÚM. DE DADOS. Bastará con pulsar 
BREAK para salir del programa. 


POSIBLES EXTENSIONES: Podrá conservarse la parte del dibujo que se ha utilizado en 


este programa para realizar todo tipo de juegos de dados, con una 
representación gráfica de calidad conveniente y fácil de modificar, si 
fuera necesario. 
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DIBUJO DE DADOS 


PROGRAMA ZX 81 


5 LET U=8 

10 PRINT AT U+U,NOT FI; 
DE DADOS” 

20 PAUSE sE4 


NUMERO 


38 IF INKEVECU1" OR INEYS 
THEN RUN 

35 CL5 

20 LET N=UAL INKEY 

se 5 Tas 

50 LET B$=:1213143926515525555" 

70 FOR I=56N PI TO N 


PRINT AT NOT PI,Us 
mo AT PIFI US T-U; 

SS LET X=INT (GkRNDISON PL; 

90 FOR Jx3GN_PI TOS 

94 IF JesPI THEN LET 5=S+UBL 5 
SCINTRIR(OA-S6N Pireo 


96 _1F J<=P1 THEN_PRINT 97 v+Je 
SGN PI ,U+I-7,A6(5 TO Srár 
109 PRINT AT J,U*I-0, "80,87 2,0 


NUMERO DE DADOS 
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PROGRAMA ZX SPECTRUM 


S LET yza 
32, PRINT AT UsU, Os" 


DO: 
28 Pause see 


"NUMERO CE D 


30 1% INKEVE CI" OR INREVS 4" 
THEN RUN 
35 CLS . BORDER 5 

Ev pg 


“1IRIDLAIRASLBE2ZESSE" 
TON $ 


2. 


ES TREN LET 39sevaL Bn 
AS 
96 IF Jim3 THEN PRINT INN 4 ¡AT 


Res-1,Usl-7ARIS TO 

108 PAINT Af y Us I-U ¡AT 
E 

138 NEXT y 


140 NEXT 


1 
150 BEEP 0.5,12: 00 TO 5 


NUMERO DE DADOS 
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El juego del misil 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: FAST. 

Dificultad de programación: mediana. 
Categoría del juego: contra el ZX. 
Dificultad del juego: mediana. 


El ZX está alerta: el jugador está a los mandos de un avión 
encargado de una misión de espionaje sobre su territorio; el objetivo 
es sobrevolar una base enemiga (representada por una H invertida) y 
regresar sano y salvo a la base propia; pero en cuanto el ZX haya 
localizado el avión enviará en su persecución un misil muy 
perfeccionado que no parará hasta destruirlo. 

El avión puede desplazarse en todas las direciones gracias a las teclas 
l a 8; ¿logrará el jugador completar su misión? 

La línea 39 dibuja la base enemiga que hay que sobrevolar (bajo la 
forma de una H invertida). 

La línea 40 dibuja la base de salida. 

Las líneas 55 y 65 escogen el instante de la salida del misil. 

La línea 79 dibuja el avión. 


Las líneas 199 y 129 definen su movimiento siguiendo 8 direcciones, 
y utilizando los subprogramas de las líneas 1990, 2209, 3000 y 4000. 


La línea 125 garantiza la salida del misil, que se dibuja por la línea 
130 y cuyo desplazamiento es gestionado por las líneas 135 y 148. 


Las líneas 145 y 150 controlan el final de la partida. 


Poner en marcha el programa con RUN. 


Se visualiza el terreno de juego, y el jugador puede desplazar el 
aparato utilizando las teclas de la 1 a la 8 en las direcciones 
siguientes: 


Debe rodearse el territorio enemigo (si el jugador o el misil tocan 
este territorio, se empezará una nueva partida). 

Si el misil destruye el avión, se obtendrá el mensaje TOCADO y la 
partida terminará. 

Pulsar BREAK para acabar la partida. 
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POSIBLES EXTENSIONES: Sin duda será necesario añadir diversos controles al programa 
(el avión ha sobrevolado la base enemiga, ha regresado a su propia 


base...). 


Tambiéa pueden preverse diversos niveles de juego, por ejemplo, 
variando la velocidad del misil, prever la utilización de señuelos por 
el avión, la explosión del misil al cabo de un cierto tiempo, etc. 


EL JUEGO DEL MISIL 


PROGRAMA ZX 81 


Doa 
ES 


SISUALCNOL LOSA 
CERErr Darro 


22999999 20700 


SOJPRARAR 


¿Y 
E 4Es 
LET FSA (VAL INKEYS<B 


120 GO SUB 1000+ (VAL INKEYS+A+( 
F-SGN P1)) 
125 IF S THEN GO TO CODE “INKEY 


E A 
5 LET UsU-S6k tu- 2 
dá0 LEFT USUZS6N (Un 
343, ¿f Usx AND vay THEN PRINT > 
TOCADO" 
S2 Tr U=b AND V=CODE “1” THEN 


200 co To 7e 
1009 LET X=X-F 
2009 LET Yar+F 

RETURN 
3008 CU SUB 2008 
4000 LET Xax+P 
4019 RETURN 


3GN 


u 
3 


E 
TOCADO * <a 
r Do 


PROGRAMA ZX SPECTRUM 


pOeea,3: s 
há E CL: 


En, 


Ll 
BRI 17" 
PRENT, FUN Eo 


5 

$ pais 

de Eninr (RND+U) 
a 

$ 


DEN RN 
1,0: STOR 

SPAN adn 

217 THEN LET 


ANO _Y<29 THEN 
1, “MISION CU 
STD 


RETURN 
3889 GO SUB 2000 
a LET Xaxer 
RETURN 
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El mono 


Modalidad: SLOW o FAST. 
Dificultad de programación: mediana. 
Categoría del juego: dos jugadores. 
Dificultad del juego: difícil. 


Se inspira en una antigua idea del mono que golpeando al azar sobre 
una máquina de escribir tiene posibilidades de acabar escribiendo un 
texto con sentido, 

El ZX realiza aquí el papel del mono y va a visualizar grupos de 3 a 6 
letras durante un tiempo relativamente corto. Si uno de los jugadores 
cree que logrará componer una palabra con las letras propuestas, 
tiene que pulsar rápidamente la tecla de juego (1 o 2). 
Entonces el adversario aceptará o rechazará la palabra y responderá 
CORRECTO o FALSO. Cada palabra correcta tiene 1 punto, cada 
palabra falsa resta 1 punto. 


La línea 39 contiene una lista VS de vocales corrientes y la línea 49 
una lista C$ de consonantes corrientes. 

Será posible modificar estas dos listas con el fin de aumentar, por 
ejemplo, la frecuencia de aparición de algunas letras (de esta forma 
podrán ponerse dos E en VS o dos R en CS, etc.). 

La línea 50 define la longitud de la palabra (en principio de 3 a 6 
letras, pero también puede modificarse la longitud). 

El bucle 1 (80-130) permite la confección de una “palabra” tomando 
una letra del alfabeto completo en la lista C$ (línea 109) o en la lista 
VS (línea 119). 

La línea 159 contemporiza la aparición del resultado. 

La línea 169 gestiona el final de la partida con la visualización de la 
puntuación. 

La línea 179 comprueba si uno de los dos jugadores ha reaccionado, 
Por último, las líneas 229 y 239 contabilizan los puntos de cada 
jugador. 


Se pone en marcha el programa pulsando RUN. 

La primera serie de letras se visualiza entonces en la pantalla. El 
jugador de la izquierda deberá pulsar 1 si ve que puede componer 
una palabra; el de la derecha pulsará %. 

Si no se ha pulsado nada se visualizará otra serie de letras poco rato 
después. 

Si uno de los jugadores ha pulsado Y o 1, se visualiza la pregunta C o 
F. Se responde C si la palabra es correcta, y F si la palabra no es 
correcta, seguido de NEWLINE. Entonces, el ZX calcula los puntos 
y la siguiente serie de letras se visualiza. 
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Para salir del programa deberá pulsarse P en lugar de Ho 1: se 
visualizará la puntuación final. 


POSIBLES EXTENSIONES: Podrá modificarse la longitud de las palabras, la frecuencia de 
aparición de las letras, el descuento de puntos, la regla del juego, etc. 


EL MON 


PROGRAMA ZX 81 


dd e 
- 

39 LET UA BIOL" 

49 LET CH ICOGLMNPRSTI" 

$0 LET x (A RRNO+INT PI 

:60 LET MS 

79 PRINT B,NOT PI.” 

30 POR lx PITO X 
e LET ES RS (INT 1 264AND+30 
100 IF RND EEN LT: ESCH (IN 
T (LEN CS«Ri SON PT) 

119 1" RNO THEN Le ES=US IN 
T (LEN USER 36N PI; 

120 LET M6 Es 

128 NEXT 1 

140 PRINT AT 5,NOT PIjMS 

150 PAUSE 50 

169 IF INKEY4x po THEN PRINT 48 
7 ¿NOT PI; "MARCADOR DE A -";A; 
DEB” AN 

170 IF INKEYS<>"1" AND INXEYs<> 


“9” THEN GOTO se 

180 LET T6zINKEYS 

190 PRINT AT 7,NOT PI:*C O F* 
209 INPUT R$ 

219 PRINT AT 7,NOT PI: 


220 LET QsA+(Rá=" E ho Ts 000 
AND T$="1") 

GCuUsA 

MARCADOR DE A DEB :3 
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CURS INT (2S4RND+5S) 
108 <24 THEN LET ES=CG LIN 
T (LEN CSHAND+1)0 

118 IF RND<.S THEN LET Es=URCIN 
TU (LEN USAAND+1) 7 
128 LET Mg=M$+ES 
130 NEXT 1 

140 PRINT PAPER 5: 


0ms 
159 PAUSE 50 


FLASH 1:9T OS 


169 IF_INKE PADHEN RINT, FL 
ASH 1 AT 7,0, "MARCADOR DEA 
SU MARTADÓR DEB r/B BEER 1.1 
0: STOP 


178 _1F INKEYSC>"1" AND INKE“80> 
"9 THEN GO TO 50 
180 LET TS=INKE'H 
190 PRINT AT 7,0; FL 
¡ ELASH_ 0; “ORRECTO 0 
CEI, FLASH D¿"ALSO 7 
200 INPUT AS 
219 PRINT AT 7, 


220 LET AA+ (R$ 


AND T 


SS 
240 co TO Se 


EONK 
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El juego del 15 


Modalidad: SLOW. 

Dificultad de programación: difícil. 

Categoría del juego: de reflexión (dos jugadores). 
Dificultad del juego: mediana. 


Es un juego bastante antiguo para dos jugadores, que hace tiempo se 
practicaba en las ferias. Se dispone de un tapete de juego de 9 
casillas, y por turnos cada persona apuesta una ficha de su color en 
una casilla libre. 

El primero de los dos jugadores que con las tres fichas exactas logre 
hacer un total de 15 ha ganado. 


El bucle I (49-65) dibuja el campo de juego, y la línea 66 se ocupa de 
la gestión del turno de los jugadores (número 1 o 2 para cada jugador 
y la ficha 0 o X correspondiente). 

La línea 99 espera la jugada (podría utilizarse el programa en 
modalidad FAST, reemplazando esta línea por una pausa). 

El bucle (190-129) verifica la validez de la jugada. 

La línea 122 comprueba el fin del juego en caso de empate, y la línea 
139 rechaza las jugadas que no son correctas (con regreso a la 
situación inicial, línea 66). 

Las líneas 140 y 143 graban las respectivas jugadas de cada jugador 
en las variables alfanuméricas O$ y XS$. 

La línea 145 se ocupa de la visualización de la jugada, y la línea 150 la 
graba en una variable RS. 

La parte más interesante del programa, que podría utilizarse para 
definir una estrategia de máquina, va de la línea 157 a la línea 180: se 
utilizan 3 bucles intercalados para verificar si uno de los jugadores ha 
obtenido con 3 fichas un total de 15. 

El cambio de jugador se efectúa en la línea 19. 


Poner en marcha el juego pulsando RUN. 

Se visualiza el terreno de juego y después la pregunta JR 1 : X, y el 
jugador que ha escogido las x tendrá que dar el número de la casilla 
donde quiere jugar; si está libre, su jugada será grabada. 

A continuación se obtiene la visualización JR 2 : O, y el segundo 
jugador procede de la misma forma. 

Si uno de los jugadores gana (total de 15 sobre 3 jugadas), obtiene la 
visualización BRAVO y la partida se para. 

En caso de empate, la máquina visualizará HA TERMINADO. 
Se empezará otra partida pulsando RUN. 
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POSIBLES EXTENSIONES: Sin ninguna duda, la más interesante será definir una 
estrategia de máquina (tratando de evitar que la máquina juegue 
siempre el 5 cuando debe empezar). 


Naturalmente, también puede mejorarse el grafismo e introducir 
efectos sonoros, para los distintos mensajes. 


EL JUEGO DEL 15 


PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 


55788 : 123485789 
$ 
> FOR Iz=F TO COLE 3TES IN 48 FOR > TO 24 _STER 
59 PRINT INK_S;AT Lo] rr 
50 PRINT AT INT PI,T: Id e1: 0 CUE EY a A 
60 PRINT AT INT PI¿SÓN P1,1+S0 69 PRINT AT 4 Isa ide2) 5 
N Bos CIS ZNT PLL INT PA 93 NEXT 1 
RINT AT 42,0: "JUGADOR ¿Fe 
85 PRINT AT CODE "eE" NOT PIUJY | 47% 0% AND Ej xo AND NOTE 
ROCSOr AND F:“X" AND NOT E 90 e TiRevacoió OR INE 09 
90 TF INKEYAC A" OR INKEVS "9 THREN_G0 TO 98 
Toe EÓR 2=SON PI TO LEN PE E A 
= NKEYBAREII! THEN 
115 1F INKEYS=RS (1) THEN GOSuUB 149 a 
140 128 NEXT 1 
120 NEXT 122 1F NOT VAL RE THEN PRINT FL 
122 1 not UL RE THEN PRIN sm ¿INR 2;AT 18,0,"N0 TERMINA 
A TERMINAD! $TOP 
158 "aore SobE “pre 60,70 68 
140 LET OS=08+(INKEVS AND E: LET 08=0: 
, 143 LET X=x8e (INKEVS ANO NOT E LET X6= $ NOT F 
"Les PRINT AT ENT PEZSON PI, ZNT PRINT RNDNO 
PIFI-SGN PI-SON "y TAND NET P 0" AND +10%P 
"O" AND P LET RS 
150 LET Rs(1)="9" LET TS IND Fr 2x5 BNCON 
157, LET TE=(OS AND Fieixs ANDON 
or 153 IF LEN 290 
1S5” IE LEN THCINT PI THEN GOTO - 188 FOR 1-1 
CODE “Y 162 FOR ¿zl+ 
168 FOR I=SGN PI TO INT PI 164 FOR K=y+ 
162 FOR J=I+SGN PI TO LEN TS 165 IF VAL TS( 4UAL TB 1D) e YEL 
154 FOR K=J¿SON PI TO LEN TS TE) =15 THEN PBRINT Fs IN 
166 IP VAL TS(IJ+UAL TSJ) <YaL 257 13,0,"8) Ñ 0 
S(X)=CODE “?" THEN PRINT "BRAVO “ AND Fx" 
au 179 NEXT K 
Í7a NEXT K 175 NEXT y 
188 Neo Y 198 LEr zas (-1 
180 NEXT 1 E pe 
190 LET PSABS (F-SGN PI) 200 RETURN 
209 RETURN 


JUGADOR 2 :X 


JR Xx BRAVO . JUGADOR X 
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Destreza 


Modalidad: FAST. 

Dificultad de programación: difícil. 

Categoría del juego: reflejos (para un jugador). 
Dificultad del juego: difícil. 


Van a aparecer cifras al azar entre O y 9 en diferentes sitios de la 
pantalla. 

Quedan visualizadas durante un tiempo muy corto. 

El jugador debe lograr pulsar la tecla numérica correspondiente en el 
mismo instante en que la cifra se visualiza. 

La cifra pulsada por el jugador se visualizará en tamaño grande, a la 
izquierda de la pantalla, y cada respuesta exacta proporciona 10 
puntos. 

La duración de la partida es aleatoria, y la puntuación se visualizará 
al final de la partida. 


Las líneas 49 y 59 contienen, en dos variables alfanuméricas C$ y BS, 
las referencias que serán utilizadas para dibujar las cifras en tamaño 
grande. 

La situación de la cifra que saca el ZX se escoge en las líneas 60 y 70, 
y la cifra se saca en la línea 89. 

La línea % realiza la impresión, y la línea 109 determina la duración 
de la visualización. 

La línea 129 define la duración del juego, y el final de la partida es 
tratado por la línea 139. 

El bucle 1 (219-240) realiza el dibujo de la cifra pulsada por el 
jugador en tamaño grande. 

El control de la exactitud del resultado es efectuado por la línea 259. 


El programa se pondrá en marcha por RUN; después de una corta 
pausa, aparece la primera cifra hacia el centro de la pantalla, El 
jugador tendrá que reaccionar bastante rápido durante el tiempo que 
dure la visualización y volver a pulsar la cifra. 


La cifra que se ha pulsado se dibujará entonces en tamaño grande en 
la parte superior y a la izquierda de la pantalla. 

Si el resultado es exacto, el jugador marcará 10 puntos. 

El tiempo de desarrollo de la partida estará en función de las cifras 
que aparezcan en la visualización. 

La puntuación se visualizará al final de la partida. 

Será posible parar en cualquier momento pulsando BREAK. 
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POSIBLES EXTENSIONES: Puede considerarse modificar el juego para hacer participar a 
varios jugadores, cambiando eventualmente la visualización y codifi- 
cando las teclas del teclado, puestas a disposición de cada uno de los 
jugadores. También podrán obtenerse puntos con cada resultado 
falso, modificar las reglas del cálculo de la puntuación y la duración 
del juego, etc. 


DESTREZA 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 

S LET Me10 

18 LET T=H8mM 

20 28 PAUSE be] “eoroer 6 cu 

38 1 39 LET s=8 

40 21 48 LET Cs= CUM 

A OE ir PAN d1e17379 
1441331213118141133331414112152" 1a41o3101311814 11323312 14114151" 

60 LET X=INT (MeRND) $0 LET X=INT (M*RRD) 

70 LET V=INT (MÉRNDem 30 LET V=INT IMSRND e" 

80 LET N=INT (MERND) 88 LET N=INT (MFRND) 

30 PRINT AT _X,Y¿N 90 PRINT ORTO YN 
190 PAUSE INT (4B+RND+Memero 100 FRUSE INT laD+RND eminem: 
cos INKEYS <>" THEN GO TO CO q IF INKEYS<>"" THÉN 60 TO 20 
120 LET T=T-N 129 LET T-T-N 
150 IF TI=NOT ÉL THE STÉN 50 vo_s0 

3 sl 5 65 
O Be e BLELS . BEER 3.10. SEEP .9.1 
O ADOR 150108 “150 PRINT "MARCADOR 'p190- 
200 LET UXxVAL INKEYSE 169 PAUSE 4E4 RUN 
219 FOR I=56N PITO S Pl ¿INKEY 5 
pe? LET As2«UAL 85 (SUI) -SON P 380 LEA SEAL es segia 23 PA 

3 A 14 RNT+4)7: 
A SAL 10,05 8 TO Beti 
248 NEXT 1 dad NerT 1 - 
250 IF UsN THEN LET 290, IF U=N THEN LETS BEEF 
AoO Or IOSAsa ¿sé do TO 120 
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Submarino 


Modalidad: SLOW. 

Dificultad de programación: mediana. 

Categoría del juego: reflejos (un solo jugador). 

Dificultad del juego: fácil. 

Se maniobra en superficie una nave cazadora de submarinos, y éstos 


pasan regularmente por debajo de la unidad a profundidades 
diferentes. 

Pueden lanzarse en cualquier momento granadas submarinas, e 
incluso se puede intentar tocar el mismo submarino varias veces. 


La puntuación se visualizará permanentemente a la izquierda de la 
pantalla (relación del número de disparos al blanco sobre el número 
de submarinos aparecidos). 


La línea 29 permite al ZX escoger la profundidad del submarino. 
La línea 59 dibuja la embarcación. 

La línea 60 muestra el tanteo y dibuja la superficie del agua. 
La línea 89 dibuja el submarino. 


El disparo se efectúa por un programa específico, situado en las 
líneas 200 a 225. 


El desplazamiento (muy rápido) de la nave se realiza por la línea 119. 


La comprobación que permite saber si se ha tocado o no se efectúa en 
la línea 85. 


Pulsar RUN para empezar la partida. 
La nave se desplazará gracias a las flechas derecha e izquierda (5 y 8). 
La tecla O autoriza el disparo. 


Como la nave se desplaza tres veces más rápida que los submarinos, 
será posible tocar varias veces la misma embarcación. 


Se pulsará BREAK para terminar la partida. 


POSIBLES EXTENSIONES: Será elemental mejorar la calidad gráfica del juego, utilizar 


color y sonidos, hacer aparecer varios submarinos que se desplacen a 
distintas velocidades, y hasta llegado el caso permitir a los submari- 
nos que también disparen, etc. 
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SUBMARINO 


PROGRAMA ZX 8L 


6 LET SNOT PI 

2 LET C=CODE ">" 

4 LET Pas 

S PRINT AT $,NOT PI, 
E CET TOO 

5 


LET SsINT (SHRAND+PT) 


LET PaP+,01 
LET X15GN PI 
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AT SGN PI,C:* 


$8 PRINT_AT ST o E 
82 Te Mason BE THEN TLET V=cexo 


x 

BS IF $=X AND T+SON PI=Y THEN 
LET P=P+SGN_PI 

90 LET_T=T-36N PI 
190 IF T<NOT PI THEN GOTO CODE 


119 LET C=C+INT PI*(INKE/S="3" 
AND _C<CODE “+")-INT PISCINKE Se 
5" AND _C>NOT PI) 

ANO X=5GN PI 


PROGRAMA ZX SPECTRUM 


PRINT AT 5,0 
LET T=27 
LET SaINT (S4RND+4) 
P=>+0,01 
_PRINT INK 25AT 1,0 
60 PRINT PAPER 5; FLASH 187 2 
“MARCADO! AIM E A 
Kara O 
89 PRINT INK 6; 
82 IF Xa1 THEN LET Y=CeXe) 
85 IF SaX AND (Tez=Y DR Ta 
TAEN LET PaP+1: PRINT_INK 3; 
ASA 1 AT ST; 04M 
90 LET TaT-1: 1% P=9S THEN PRI 


AT_OS, Ti 


NT_INUERSE 1; INK 4;AT 12.0: "HA 
TERMINADO": BEEP .5,10: BEEP ,3, 
18: BEEP .3,5 

190 IF T<B THEN GO TO 15 

139 LET CEOs3E (INE ES E> AND 


AND 02071 
e aL rmen 


21 35 
220 PRINT AT X,Y; 
225 GO TO 50 


MARCADOR : 29.32 
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Zombis 


Modalidad: FAST o SLOW. 

Dificultad de programación: bastante difícil. 
Categoría del juego: solitario. 

Dificultad del juego: bastante fácil. 


Los zombis son unos seres maléficos que intentarán destruir al 
jugador, pero éste intentará utilizarlos para eliminar de su espacio 
vital unos agujeros negros que lo oscurecen. En la pantalla se traza 
un cuadrado que define el espacio vital. 

En este cuadrado aparecerán de forma aleatoria los ZOMBIS (que 
son Z invertidas), los agujeros negros (cuadrados negros) y el 
jugador (un 9). 

Los ZOMBIS convergen hacia el jugador intentando capturarlo, 
pero éste se desplaza más rápido que ellos e intentará hacerles comer 
todos los agujeros negros, sin dejarse capturar, La partida se termina 
por la desaparición del jugador o por la eliminación de todos los 
agujeros negros. 

La posición de los ZOMBIS está definida por una tabla Z en la 
línea 19. 

Las líneas 49 y 89 (bucle 1) dibujan el cuadrado, los ZOMBIS y los 
agujeros negros. 

La línea 92 define la posición inicial del jugador. 

Un segundo bucle 1 (95-190) realiza el desplazamiento de las Z. 
Las líneas 120 y 138 controlan el desplazamiento del jugador. 


Después de poner en marcha la ejecución con RUN, el jugador se 
desplazará utilizando las 4 flechas y teniendo cuidado de no salir de 
los límites del terreno. 

Tendrá que maniobrar de manera que los ZOMBIS vayan sobre los 
agujeros negros, sin dejarse capturar él mismo. 

Para terminar la partida, bastará con pulsar BREAK. 


POSIBLES EXTENSIONES: Sería interesante aumentar el tamaño del terreno de juego, 


aumentar el número de ZOMBIS o de agujeros negros, mejorar los 
controles (prácticamente inexistentes), situar al jugador de forma 
más aleatoria, eventualmente modificar la regla (por ejemplo, hacer 
desaparecer los ZOMBIS en los agujeros negros). 


También podrá mejorarse la calidad del dibujo e introducir color. 
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ZOMBIS 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
19 DIM ZLINT PI+INT PT; 19 DIM Z1S 
29 LET L=NOT PI 20 LET L=8 
49 FOR Jal TO CODE "s 40 FOR Í=i TO 21 
59 PRINT AT L,Ís50N PI: 50 PRINT INK 3;AT L,T+1 
SS MS TI ALL. WA 1 
65 Te AND<.4 TRENLPRIN "065 Te RND<¿4 THEN PRINT AT INT 
(RNDECODE UN INTENTE: ENT. (RND+4297 +1, bl 
57 CET SPRNDRÚAL Pro” 67 LET S=ÍNÍ ÍRND+14+1) 
69 LET Z(INT ((I+SGN PI+SGN PI 569 LET ZIINT (1/3) 911=5+5 
» ¿INT PLA SEN PI)=INT PIF+INT OS ¿8 REST INE SAT 21,1+1; 
7 CODE “$ I+S6N Br; 89 NEXT 1 
ES NEXT I de AN ESTNT CONO eLe tal 
LET LS : 
91 LET LS PTRTEN. PI 96 PRINT AT Z(D),Z (144), “ 
92l PRINT AT S5,x;"0" 97 LET Z(T)aZ (DD SON (Z (MS 
E FOR I=20N AT TO zar pz ar 99 LET 2iTo4) az (144) -36N (2114 
E E he E 
: A ra e do 
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-SGN (Z(I+INT PI) =K) BEEP 2 13 PRINT FLASH 1,"MA 
3029 PRINTOAT 2(1),Z(1+INT ez PE o e 
108 NEXT 1 105 PRINT PAPER S; INUERSE 1;AT 
119 PAUSE IewI 5/K: 10% 
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KEYS=2"7")): 1F 5:30 OR 5221 THE 
N BRINT “HA PERDIDO": BEER 3-18 
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Diago 


Modalidad: SLOW. 

Dificultad de programación: fácil. 
Categoría del juego: reflejos (un jugador). 
Dificultad del juego: difícil. 


Se pone en marcha el programa por RUN y se obtiene una primera 
visualización que informa sobre la marca a realizar (por ejemplo, 5 
puntos negros o 17 puntos negros); después se visualiza el tiempo y se 
descuenta a partir de 19 segundos. 

El juego empieza cuando se llega a O segundos, Entonces aparecen 
unos puntos negros, abajo y a la izquierda de la pantalla, formando 
una línea en diagonal, y habrá que pulsar la tecla O para parar la 
visualización de los puntos tan pronto como se estime que el número 
de puntos que han aparecido en la pantalla es el que se ha solicitado 
al principio de la partida. 

Entonces se obtendrá la visualización de BRAVO o HA PERDIDO, 
según el resultado obtenido. 


El número de puntos negros se escoge al azar en la línea 10. 
El tiempo es descontado por las líneas 40 a 90, Los puntos se 
imprimen por la línea 129, y la línea diagonal se confecciona por la 
línea 139. 

La presión en la tecla Y se detecta en la línea 150, y la línea 169 
controla el final de la partida (ningún reflejo). 

Las visualizaciones del final se efectúan en las líneas 199 a 230. 


Se pone en marcha la ejecución con RUN. 

Se obtiene entonces la visualización de la frase, EL BUEN 
REFLEJO ES PARA ... que indica el número de puntos ganadores. 
A continuación, se descuenta el tiempo bajo la forma ATENCIÓN 
.-. SEGUNDOS, que indica el tiempo que queda antes de la 
aparición de la diagonal. A la visualización de O aparece la diagonal y 
empieza a desplazarse sobre la pantalla. 

Si se cree que se ha alcanzado el número de puntos reclamados, 
tendrá que pulsarse la tecla O, La visualización indica entonces 
BRAVO, si se ha ganado, o HA PERDIDO en caso contrario; 
después se visualiza la frase OTRA PRUEBA ¿(S o N)?; responder 
S para jugar otra partida. 


POSIBLES EXTENSIONES: Se considerará una adaptación del juego para dos o más 


jugadores, dejando que la diagonal se forme completamente y 
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comprobando la coincidencia en el momento de pulsar la tecla 
atribuida al jugador. 
Puede también realizarse un grafismo más cuidado y modificar el 
principio del desplazamiento de los objetos en la pantalla (desplaza- 
miento horizontal, vertical o aparición al azar). 


DIAGO 


PROGRAMA ZX 81 


=INT (RNDe18+INT PI) 
“EL BUEN REFLEJO ES P 
19 


“ATENCION 


3-SON PI 
30 


* SEGU 


" THEN_GOT 
GOTO 228 9400 


A FHEN GOTO 220 
"OTRA PRUEBA (S/N17" 
IF R$="S" THEN RUN 

¿rob* 


PRINT “HA PERDIDO” 
GOTO 195 


HA PERDIDO 


183 


BRAVO: OTRA PRUEBA 
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QL 


PROGRAMA ZX SPECTRUM 


XRINT (RNDO+1843) 
“EL BUEN REFLEJO ES P 


Rln? “Dasn 1; "ATENCION :%; 


LET $=8-1 
BEEP 1,10: PAUSE 20 
Í6 NOT_3 THEN GO TO 108 


60_Ti 
pl 00 
ON o V+5,z 

RIN 21,0: POKE 23692,0 
Lonas Pp 


U=0+ 
AF TINREYS="0" THEN 60 TO 18 
JE Y322 THEN GO TO 220 


se Ea MES CnGN $0 Ta 226 
'RINT "Bi 


PAINT" OFRR' PRUEBA 


INPUT RS 
JA R6="S" THEN RUN 


BRÍNT "HA PERDIDO: “; 
60 TO 195 


(500 


15 0 n)? 
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Topología 


Modalidad: FAST o SLOW, impuesta por el programa. 
Dificultad de programación: mediana. 

Categoría del juego: grafismo. 

Dificultad del juego: mediana. 


Aparece en la pantalla un dibujo muy elemental a base de trazos 
(puede también ser introducido por otro jugador). 

El jugador dispone de un señalizador móvil, que simboliza una goma 
de borrar, e intentará suprimir el dibujo anterior repasando, una 
única vez, sobre cada uno de sus trazos. 


La línea 29 contiene un dibujo programado con anterioridad 
(variable BS). Por supuesto, podrá definirse otro dibujo o introducir 
el actual pulsando 20 INPUT B$. 


La codificación del dibujo se realiza de la manera siguiente: 


Inicio ca Longitud del desplazamiento 
xx 3 oxx ] hs 


>xx lxx lx x 1 xx . etc. 


Desplazamiento y (0, 1 o 2) 


x y 
Posición de salida 
Desplazamiento x (0, 1 o 2) 


0 - 0 y 
x: 1 inmóvil Y * 1 inmóvil 
2 > 2 t 


Las líneas 199 y 119 calculan la posición de salida. 

El bucle 1 (130-179) realiza el desciframiento, y la impresión está 
asegurada por el subprograma 290-230. La parte de borrado empieza 
en la línea 173. El desciframiento del desplazamiento del jugador 
está asegurado por las líneas 189 y 182 (8 direcciones). 


7 3 2 
5 ——. (flechas) >. E 
4 1 
6 


Se empieza con la instrucción RUN, y si el dibujo no ha sido 
previamente programado, se le introduce siguiendo las instrucciones 
dadas con anterioridad. A continuación se pulsa NEWLINE. 
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Con la visualización del dibujo aparece un punto luminoso intermi- 
tente en la parte inferior y a la izquierda de la pantalla. Se puede 
desplazar utilizando las 4 teclas de desplazamiento o utilizando las 
teclas 1 a 4 para los desplazamientos en diagonal. 

Se intentará borrar el dibujo inicial sin levantar el lápiz y sin repasar 
dos veces el mismo trazo. 


POSIBLES EXTENSIONES: Podrá introducirse color, definir una tabla de dibujos 
topológicamente interesantes, añadir controles basados en el hecho 
de no dejar el dibujo inicial, etc. 


TOPOLOGÍA 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
10 FAST 20 LET B$="3232216412640164106 
20 LET BS 1612160116101 4226410649264" 
62216191602 98 LET S=UAL Bs(1 TO 2) 
109 LET $= 2 110 LET T=UAL B$(3 TO 4) 
110 LET Te 1I_TO 4) =5 TO LEN 
199 FOR Ix ps AL BEI 
140 LET Vel PI AL _BS(1 
pro LET Val PI) -SGN 200 
160 GosuB 5-1 
170 NEXT 1 20 
171 LET Xx Y: PLOT X+1,Y: PLOT 
172 LET Ya X+1,Y+: 
173 SLOY ER. 1:X.Y: PLOT OVER 
174 PLOT x OT QUER 4;X,Y+1: PLOT 
176 UNPLOT ¿14d 
IF _INKI EY $: GO TO 374 
( 8” OR INKE 
13 EY (INKEYS="5 
ay 3 s2.4> 
OR INKE ( " OR INKE 
247 - (INKEYH2"6 IK "6 
OR INKEYS="3") 2 
MS PI TO VAL B$iI+2 TO 
s,T 
=5+U 
*u 
22 xk 
238 RETURN 
/ 


185 


102 PROGRAMAS PARA ZX 81 Y SPECTRUM 


Caza al submarino 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: SLOW o FAST. 

Dificultad de programación: mediana. 
Categoría del juego: juego de reflexión. 
Dificultad del juego: mediana. 


El jugador está a bordo de un buque de superficie encargado de 
acosar a un submarino escondido en un cierto lugar de un sector que 
pertenece al jugador; hay que desplazarse hasta colocarse encima del 
submarino y disparar a una cierta profundidad; pero cuidado, el 
submarino también puede moverse; no parará sus motores hasta 
el momento en que el buque se encuentre exactamente en su vertical, 
a fin de no ser localizado. 


El bucle I (20-49) visualiza el campo de juego. 

Las líneas 97 y 98 definen la posición inicial del submarino, las líneas 
100 y 195 permiten su desplazamiento, controlado por la línea 197 
(hay que quedarse en los límites del campo de juego). 

La línea 119 visualiza la posición del buque. 

Las líneas 117 a 120 controlan su desplazamiento. 

La distancia se calcula en la línea 130, se visualiza en la línea 149 y se 
comprueba en la línea 159. 

En la línea 224 se comprueba el final de la partida. 


Se pone en marcha el programa por RUN y se introduce la 
dimensión; se visualiza la rejilla de juego. 

El buque se sitúa en la salida, en la posición (0, 0), y hay que 
desplazarse con las teclas 5, 6, 7, 8. 

Después de cada desplazamiento se visualiza la nueva distancia del 
submarino, que se desplaza a cada disparo. Si consigue situarse en su 
vertical, se visualiza la distancia 0 y no se mueve más. 

Se dispara dando una profundidad entera (entre 2 y 4, límites 
comprendidos). Si se falla, se desplaza sin rumbo y se vuelve a 
empezar; si se hunde, se obtiene la visualización BRAVO y la partida 
termina. 

Puede pararse en cualquier momento el programa utilizando la tecla 
BREAK. 


POSIBLES EXTENSIONES: Es posible prever una mejora del gráfico, mejorar las 


posibilidades de desplazamiento del buque cazador (un poco lento en 
esta versión), prever trayectos más sofisticados para el submarino, 
poner un contador de tiempos, etc. 
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CAZA AL SUBMARINO 


PROGRAMA ZX 81 


OT PI 


E) 
LET 0:30N PIéSON FX 
To 


PRINT AT 1+G,A; + 
Ses, ar £ 
wribr, T¡AT A,G4T+T 


E] 
z 


PI 


(ANDE) 
(RND AH) 


Ecccc<xm 
AAN 
IE CUEDDO 
or 44 


U)H OR Y<A OR vo 
AER NER CER OS ind 
119 PRINT-AT X+0,GeY+S5GN PI 
“¡AT OXASGN PI-GEY+INT PI; 
Tag ENT DIS AY SENT PIO 
118 PAUSE Él«, 


117 LET YY El AND YH 
" AND xcH 
130 LET D=INT RO LABS (x-6) 
+ABS (Y-U) 446) En st NE 
140 PRINT AT M+M,A; "DIST 
2308 IF NOT D THEN GO TO CODE * 
. 199, IF DCINT PI THEN 50 TO VAL 
198 60 TO VAL "110" 
200 PRINT AT H4+mM,A; "PROF" 
200,10 DZINT (PIERN 
INT «BRADOs +RND) +G THEN PA 
230 60 TO VAL "9s" 
123456 

o 

1 

E 

4 n 

El 

6 

DIST .2 
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PROGRAMA ZX SPECTRUM 


0d) 

17 LET G=2 

28 FOR I=A TO 
59 PRÍNT PAPER" 


SAT 1+G,A;1 
a OA 1 


ar 


(RNDAM) 
(RNDAH) 


LEr 
10) 1F (ULA DR _UsA OR UCA OR 
H) THEN LET I=-1 
110 PRINT INK 2:87 X+G,GrY+1;" 
SAT X+1 GAY4D 0 MAT 43 
Ya 
115 PAUSE 4E4 


117 LET YaY+(INKEYS2"8" AND V<H 
) =CINKEY: 

120 LET X=X AND X<H 
) > LINKEY/ 

130 LEF TD INT SOR” LABS xv) 404 
ABS (Y-4)+G) 

140, PRINT AT H4H,A; "DISTANCIA 
“154 IF NOT O THEN 60 TO 200 
OMPQy IF DS THEN DEEP 2.10: 00 Y 


Oya" 0 To 
ER 4 H4H, A; "PROFUNDIDAD 


21Ó INPUT D- PRINT OD 
228 IF D=INT (3ERND)4+G THEN PRI 
NI_FLASH 1; "BRAUO”; BEER ¿3,10% 
BEE 23-18: DEEP .5,8: SróR 
2308 60 TO 


012345678 


JARA 


DISTANCIA :8 


El 


REFERENCIAS: 
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EL PROGRAMA: 


PARA JUGAR: 
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lagarto de Alicia 


Modalidad: SLOW. 

Dificultad de programación: fácil. 
Categoría del juego: solitario. 
Dificultad del juego: bastante difícil. 


Se inspira muy vagamente en una idea de LEWIS CAROLL, en 
“Alicia en el País de las Maravillas”. En la historia original, Alicia 
crecía o disminuía de tamaño, mientras que en el juego, por razones 
de limitación de la memoria, es un lagarto el que cambia de tamaño. 
Dos vasos aparecen en la pantalla; uno contiene el líquido que hace 
crecer, el otro el líquido que hace disminuir (desgraciadamente no se 
trata siempre del mismo vaso). El jugador deberá indicar la cantidad 
de líquido que desea beber, y el lagarto cambiará de tamaño en 
función de esta cantidad. 

El objetivo del juego es devolver al lagarto su tamaño original. 


El bucle 1 (5-35) dibuja los vasos. 

Los dos bucles intercalados 1 (55-65) y J (57-62) los ltenan con la 
cantidad indicada en la línea 50. 

La variación del tamaño del lagarto está definida por la línea 75, con 
control mediante las líneas 80 y 90. 

El bucle 1 (199-300) dibuja el cuerpo del lagarto, las líneas 504 a 800 
dibujan el ojo y las patas. 

Un mensaje ganador se visualiza por la línea 819, si se ha encontrado 
el tamaño normal. 


Se pone en marcha el programa con RUN: se dibujan Jos dos vasos, y 
después aparece la pregunta VASO, a la cual se responde pulsando 
To D; a continuación se obtiene la visualización CUÁNTO, se 
introduce entonces una cantidad (de O a 130) y se pulsa NEWLINE. 
El vaso indicado se llena, y después de unos instantes se visualiza el 
lagarto. 

Se pulsará cualquier tecla (excepto BREAK, que terminaría la 
partida); si el lagarto no tiene el tamaño normal, no se visualizará 
ningún mensaje y se volverá otra vez al dibujo de los vasos. 


POSIBLES EXTENSIONES: Puesto que se trata de un juego esencialmente gráfico, será 


interesante mejorar los dibujos, introducir color, modificar el 
carácter aleatorio de la elección de los vasos, etc. ¿Por qué no volver 
a leer “Alicia en el País de las Maravillas”, que está lleno de ideas? 
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EL LAGARTO DE ALICIA 


PROGRAMA ZX 81 


“IZOUIER DERECHA" 
PRINT AT PÍISPI,NÓT PI; “VASO 


IF INKEYA<>"D”" AND INKEYA<> 
vel e 'N GOTO CODE "C" 
345 LET U03+CÓ0É “> "e CINKEYE="D 


PRINT “CUANTO” 
INPUT O 
FOR I2NOT PI 


38 


sor o 
7 


TO 
TO 
pe “e 


PLOT UéyJ, 1+CO! 
NEXT y 

NEXT 1 

PAUSE ae 


ge (ono eo s 


-SGN PI 


IZQUIER DERECHA 


UASO, 
CUANTO 


PROGRAMA ZX SPECTRUM 


2 INK 0: PAPER 7: CL5 

3 LEr 8 

ES To 9 

19 PRINT Ink 4" UN ... 

20 NEXT 1 

39 PRINT INK 4: 
e 

35 PRINT : IZQUIERDA DERECHA” 

38 PRINT AT 15,0, "QUE LADO 


4% IF INKEYS<>"D" AND INKEYNC> 
vI" TAEN GO_TO 48 
45 LET +104 (INKEYS2"D 


PRINT “DERECHA” ANO TN = 

'D”; “IZQUIERDA” AND INREYS= 
PRINT “QUE CANTITAD :": 

59 INPUT 0: PRINT 0 

53 INK 5 

55 FOR TO 4e50r a 

57 FOR TO 31 

68 PLOT exU+Je2d 14105 

52 NEXT Y 

65 NEXT 1 

67 PRUSE_4E4 

568 BORDER 6: INK 2: CLS 

70 LET H=2* (RND<,S) -1 

75 LET N=N+MeINT SOR D 

$3 le Nc22 Tnén LEl nzi2 

El] ¿58 THEN LET N=60 

EN 1:0 TO 4+(N+2 

¡08 PLOT 1,45S43. PLOT 1,4r5+2: 
PLOT 1,4S+1: PLOT 1,445 

309 NEXT_I 

400 LET Tz4e (N-INT_C((SOR_N)/5/) 

PLOT 7,945: PLOT T-1,9+5-2; PL 
OT T-2.94$-1: PLOT T+1,8+5: PLOT 
T+2,945-1: CIRCLE 7,8+5-2,1,5 
500 LET Ta4450A_ N. PLOT 7,343 
PLOT T-1,345-1: PLOT T-2,343-2 
$08 LET T=T+3: PLOT T.3+3: PLOT 
T41,315-4: PLOT T42,345-2 

708 "LET Tz4+ (N-SOR N). PLOT T,9 
13 PLOT T-1,348-1: PLOT T-2,343 
300 LET T=T+3: PLOT T,I4S: PLOT 
T+1,345-1: PLOT T+2,345-2 


305 PAUSE «ES 
948,1 N=28 THEN PRINT "BRAVO" 


328 60 TO 2 


IZQUIERDA DERECHA 


QUE LADO DERECHA 
QUE CANTITAD :138 
BRAVO 
e. 
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Calculadora 


Modalidad: FAST o SLOW. 

Dificultad de programación: muy difícil. 

Categoría del juego: simulación de una calculadora. 
Dificultad del juego: mediana. 


Se trata de la simulación, en una visualización de gran tamaño, del 
funcionamiento de una pequeña calculadora de bolsillo, del tipo de 4 
operaciones. Las aplicaciones pedagógicas de este programa son 
evidentes, y su funcionamiento es muy simple de dominar. 


Las variables B$ y C$ de las líneas 29 y 30 contienen las 
informaciones codificadas, que permitirán el dibujo de las cifras en 
tamaño grande. 

Las líneas 129 a 150 comprueban las distintas entradas posibles. 
Las líneas 160 a 180 se ocupan de la representación en tamaño 
grande de las cifras, a medida que se introducen en la pantalla. 
El punto decimal y el signo — son gestionados por la línea 185. 
El número total de símbolos introducidos se controla por la línea 199. 
El resultado se inscribe gracias a un programa que funciona 
automáticamente, y que se encuentra en las líneas 229 a 279 (el 
automatismo se gestiona en el programa principal por la línea 195). 


Se pondrá en marcha el programa por RUN. 

Después se pulsan las cifras del primer número que se introduce y 
que van a visualizarse, una a una, a medida que se teclean (no se 
podrán utilizar más de 7 símbolos, comprendidos el signo - y el punto 
decimal). 

La pulsación de un signo operacional deja la visualización intacta; 
pero ta introducción de la siguiente cifra o símbolo provoca la 
supresión inmediata y la visualización del nuevo símbolo. Hay que 
advertir que las cifras se introducen de izquierda a derecha, en el 
mismo sentido que la escritura normal. 

El aparato acepta como símbolos operacionales los siguien- 
tes: +, —, * y /; el signo = provocará la visualización del resultado. 
Las operaciones son automáticamente encadenadas; el resultado 
anterior se tiene en cuenta como operador del siguiente cálculo. 
Para realizar otra operación se pulsará BREAK y después RUN. 
Pulsar BREAK para salir del programa. 
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POSIBLES EXTENSIONES: Ante todo, deberá mejorarse la visualización del signo — 
(representado aquí por un punto); después podrá mejorarse el dibujo 
de las cifras (utilizando, por ejemplo, el generador del ZX). También 
podrá considerarse una ampliación a 8 cifras, autorizar operaciones 
más complejas (COS, SEN), incorporar memorias, etc. 


CALCULADORA 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
S LET U=SGhADI+SGN PI 

29 cEr Mo calis ”. Mozo 
14410912. ALIS SS Tetaricior” 10113 itaasis 

58 LET Y=NOT PI 

69 LEFT NINOT PI 

128 PAUS E 
0 dEl 25" THEN GOTO 20D 125 oa 
159 LEr NKEYS É co 
132 1 FOR INKEVS 9" 199 

THEN 90: dur 331 PRRbO6 
E POPE cos ero on Eo 
159 IF » OR PS="-" THEN 60 rie $ rie Comores 
TO CODE 135 LET NE 

169 FOR Í=S0N PITO INT PIsUY 1áS 15 Ñ REN <LS 

165 LET S2U*UAL BSULINT PLD eV 150 1£ P OR Pg="-" THEN GO 
AL PST) -SON PI TO 185 
O Enucets To s=son 188 Cer SUNURL esizos2UAL Ps) 
189 NEXT I q $ 


185 PLOT N4+N+INT PI. CODE 
138 LET NeN+ (su) $ INECODE * 


1 

170 PRINT INK 2-MAT I.M;C0615 T 

0 S+1) 

180 NEXT 1 
IF P 


THEN PRINT INR 2= 
" THEN PRINT INK 2- 


LEr 
338 CET hs Es R$ 


TO LEN RS 
269 LET PEREA 


ERP .3,20 
270 GOTO CODI 198 LET N=N+4+ (Neza) 


195 1% 7 THEN NEXT T 
208 60 TO 128 
LET Ab 
239 CET RSSSTRE VAL Rs 
240 BE 1,- 
FOR YO_LEN R$ 
2S8 LEY. pesagt 


435.678 | 1834-55 
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NIVEL 5 


N.* Nombre del programa 


Tema y particularidades 


1 


vos 


Smokey 


Carreras de coches 
Ajedrez 
Peligro espacial 


Tic tac toe 
Reloj 2 
Damas 
Anagramas 
Huevos 


Visualización giratoria 
(vertical) 


De cuatro en cuatro 
Revoltijo de letras 


Blancos 
Gotas 
Obstáculos 


Capturas en el espacio 
Anuncio publicitario (2) 


Anomalía 
Varios en uno 


Recorrido del caballo 
Pared de ladrillos 
Othello 


Fumar sin riesgo, con este original programa para un 
jugador. 


Un juego de reflejos, no muy difícil, para un jugador. 
Un programa muy simplificado, para dos jugadores. 


¿Será suficientemente hábil para evitar todos los meteori- 
tos? 


Un clásico, pero no por ello sin interés (un jugador). 
Utilización del generador de caracteres incorporado. 
Para dos jugadores; clásico. 

Un buen juego de reflejos, para dos jugadores. 


¡No dejarse manejar por la ponedora diabólica! (un 
jugador). 


Una posibilidad de aprovecharse del ZX. 


Un juego de reflexión, un poco difícil, para dos jugadores. 


Un proverbio se esconde dentro; es su ocasión para 
descubrirlo. 


Un poco de habilidad, mucha suerte. Muy visual. 
Más bien un efecto visual y sonoro. Para utili; 


rn. 


Muchos obstáculos hay que evitar en este juego de 
habilidad para un jugador. 


¡Una misión fácil, sin los dichosos meteoritos! 
¡inclinar el televisor unos 90” y todo irá bien! 


Para ejercer la perspicacia en el reconocimiento de los 
símbolos. 


¡Un terreno de juego y peones, para dos jugadores! 
¡Escojan! 


Muy espectacular e instructivo por varias razones. 
Un gran clásico, en una versión muy completa. 


Para dos jugadores; le dará la vuelta a los peones en su 
lugar. 
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Inscripción directa 
en las memorias 


LA INSTRUCCIÓN DE EXPLORACIÓN 
DE LAS POSICIONES DE MEMORIA: PEEK 


Esta instrucción (utilizada con la instrucción complementaria POKE) permite leer (y 
escribir) directamente en cualquiera de las posiciones de memoria direccionables por el 
microprocesador; así, utilizando con cuidado los POKE y los PEEK, podrán remediarse las 
insuficiencias de lenguaje Basic, llegando incluso hasta la escritura, a partir del Basic, de 
programas en lenguaje máquina. 

En lo que nos concierne, hemos utilizado el POKE en el ZX Spectrum para inhibir la 
visualización SCROLL ? , que aparece automáticamente en la parte inferior de la pantalla 
cuando ésta se encuentra llena. La dirección de memoria correspondiente es 23692, y 
bastará con escribir POKE 23692, 9 para evitar esta visualización intempestiva, 

En el ZX 81, la función PEEK se utiliza sobre todo para localizar una dirección de la 
memoria en la zona de visualización: en efecto, las posiciones de memoria 16398 y 16399 
contienen en dos octetos la dirección de la siguiente posición de impresión (gestión del 
PRINT); se utiliza esta propiedad para mirar lo que se encuentra en un lugar señalado de la 
pantalla. 

Se escribe PRINT AT X, Y ; lo que prepara al ZX para escribir en la línea X, columna Y. 

Se lee entonces la dirección correspondiente a esta posición mediante PEEK 
16398 + 256 x PEEK 16399; para saber lo que se encuentra en la pantalla, bastará con 
hacer un PEEK de esta dirección: se encuentra un número de Y a 255, que corresponde al 
código del carácter presente en la memoria de la pantalla. 

Se procede de la misma forma en el ZX Spectrum, pero será más simple utilizar una de 
las dos funciones preprogramadas SCREENS (lectura de un carácter en la pantalla) y 
ATTR(X,Y) (lectura de los atributos de color del punto X,Y de la pantalla). 

Se utilizará igualmente la función PEEK para leer las informaciones contenidas en la 
memoria inactiva, por ejemplo, el generador de caracteres, situado en ROM a partir de 
la dirección 7680 en el ZX 81 y 15360 en el ZX Spectrum. 
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REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


102 PROGRAMAS PARA ZX 81 Y SPECTRUM 


Smokey 


Modalidad: SLOW. 

Dificultad de programación: mediana. 
Categoría del juego: solitario. 
Dificultad del juego: mediana. 


Una columna de humo gris aparece en la pantalla. El jugador, 
representado por un punto negro, es visible a la derecha. En un 
primer momento debe colocarse sobre la columna de humo, 
entonces, desde allí va a tragarse automáticamente el humo a 
condición de que consiga mantenerse en su trazado. 


La línea 30 hace aparecer el humo en la parte baja de la pantalla; la 
línea 35 permite cambiar (hacia la derecha o hacia la izquierda) 
la dirección de la columna, y la línea 59 hace subir la columna. 
El jugador aparece gracias a la línea 66, y su desplazamiento se 
efectúa por las líneas 9 y 100. 

Las líneas 129 y 199 se ocupan de la visualización del resultado. 


Debe ponerse en marcha el programa por RUN. 

El humo empieza a subir, mientras que el jugador aparece en forma 
de un cuadrado negro en una esquina de la pantalla; se desplaza- 
rá sobre ella con la ayuda de 4 flechas. Tan pronto como llegue 
el humo sobre el jugador, éste empezará a tragárselo automática- 
mente e intentará seguir la columna sin desviarse (gracias a las 
flechas 8 y 5). 

El jugador ganará si llega abajo de la pantalla antes de que el humo 
llegue arriba. 

La visualización final indica en este momento BRAVO o HA 
PERDIDO. 


POSIBLES EXTENSIONES: Podrán, conservando la idea inicial, imponerse otras reglas: 


por ejemplo, tragar todo el humo, que podrá también salir de otro 
sitio si se le desvía de la columna inicial. 


Podrán mejorarse los controles del final de la partida y la calidad del 
grafismo. 
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SMOKEY 


PROGRAMA ZX 81 


19 LET X=CODE 
15 LET UzNOT PI 
20 LET U=CODE “£ 
25 LET YxINT (CODE ")"ERNDI 
30 PRINT AT xv: 

35 LET YaY+(RND<.S AND Y«CODE 
%) - (RAND £+ 5 "AND Y>NOT 21) 

40 LET T56N PI 

SO LET X=X-T 


568 IF NOT X THEN SOTO CODE 

56 PRINT AT u.U: 

79 IF T THEN PAUSE CODE "PI" 

88 PRINT AT Y,U;* 

90 LET U=U+(INKEVS AND TA 
ND_X«CÓDE -“="") =(INKEYS="7" AND T 
AND X2NOT en “ 

LET UxU+NOT T 

188 CET USOS LINKEVO="8= AND uec 
ODE "7% - CINKEVS="5 año ÚShor Bb 
119 PRINT AT U.V; 

120 LET C=PEEK (PEEK 16998+2556% 
PEEK 16999) 

p439, TF Chks CoN O THEN GOTO CO 


ae” LET T=NOT P1 


ode, Tf VOCÓDE Te” THEN GOTO CO 
188 CLs 

198 PRINT "BRAVO" RND NOT T."MA 
PERDIDO” AND T 
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PROGRAMA ZX SPECTRUM 


5 BORDER LET 350 
19 LET x 
CET YSZRT (270RND1 
PRINT INVERSE 1; INK 4;AT x 


VaebLer va vs (RND<-8 AND Y <27) =4 
RND<,5 AND Y>0) 
49 LET T=1 
50 LET Xax-T. 
60 IF NOT x TMEN 60 TO 180 
66 PRINT Fi Ho1; INVERSE 2; 1 
NK_Z;AT UU; 
70 1" TY TREN PRUSE 558 
80 PRINT 
Va 
(1 


30 LET 
ND_Xc20) - 


160 IF _Uc»20 THEN GO TO 56 
180 CLs 
190 PRÍNT "BRAVO" AND_NOT Ti a 
SEROIDO” AND Er” MARCADOR 
LASH 1;5: BEEP .3,10: BEEP 23,16 
BEEP .3, 
a 
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Carreras de coches 


REFERENCIAS: Modalidad: SLOW. 
Dificultad de programación: difícil. 
Categoría del juego: juego de reflexión (un jugador). 
Dificultad del juego: mediana. 


EL JUEGO: Se circula por una carretera muy sinuosa en la que no hay ningún 
obstáculo, y se intentará seguirla el máximo de tiempo posible. 
El recorrido queda visualizado permanentemente, y la puntuación se 
muestra en cuanto ocurre un accidente. 

EL PROGRAMA: La impresión de la carretera se asegura por la línea 50. 
En la línea 55, la instrucción SCROLL hace adelantar la carretera, y 
la línea 60 imprime el coche. 
La línea 89 controla su movimiento, y la línea 9M determina la 
existencia de curvas o no en la carretera. 
Las líneas 109 y 110 miran si se tocan los bordes de la carretera. 
La línea 120 aumenta la puntuación, y la línea 134 borra la antigua 
posición del coche (un trozo claro aparece en el lugar de su 
trayectoria). 


PARA JUGAR: Poner en marcha la ejecución del programa por la orden RUN; el 
dibujo de la carretera empieza a seguir su curso y aparece el vehículo, 
representado por una Y invertida. 

Para desplazarlo a la derecha o a la izquierda, se utilizarán las teclas 
5 y 8 (flechas de desplazamiento). 

Se evitará, el máximo de tiempo posible, tocar un reborde negro, lo 
que provocará la parada del programa y la visualización de la 
mención ACCIDENTE, seguida de la indicación sobre la puntuación 
realizada. 

Podrá pararse en cualquier momento el desarrollo de la partida 
pulsando la tecla BREAK. 


POSIBLES EXTENSIONES: Se considerará el juego para varias personas, grabando la 
mejor puntuación. 
Puede también considerarse el ensanchamiento de la pista y hacer 
correr a varios coches. 


También podrá inspirarse en los juegos de arcadas, los cuales son 
particularmente numerosos sobre este tema. 
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CARRERAS DE COCHES 


PROGRAMA ZX 381 


LET AsINT PISINT PI 
LEY 


1] 

|] 

1] a 

1] INT PI 
5 LET 32NOT PI 
9 BRINT AT x,Y 
8 SCROLL 

O PRINT AT OA, 
8 LET czB 

9, CET Bebe (INKEV BO 8) CINE 
1] 

[7 

] 

6 

E 

1] 

+] 

0 


17] 

LET YY + (2RND_AND Y<CODE * 
(Z4AND ANO Y>INT PI) 

PRINT AT A+SGN PIB: 

IP PEER (PREK 16308+256+PE 
3391:C0DE THEN PRINT "a 
NTE_ MARCADOR “;S/6 
LET S=8¿SGN PI 
PRINT AT AC; * 

Goto coDE “Mm” 


IDENTE MARCADOR 18 


PROGRAMA ZX SPECTRUM 


10 LET Ax9 
Z0'LET BsA 
30 CET X=A.+A 
ER 
4 
. 59 PRINT INK 1;AT X,7;"BN...19 


$5 PRINT AT 20.0: POKE 23692.2 
PRINT CHRE 13 

68 PRINT INK 4;AT AB; 
65 LET 228 
9 LET BxB+(INKEYS: ) - LINKEY 
5) 


s 

98 LET YzY+(24RND AND Y<161-(2 
+PND AND Y>31 

108 PRUSE 5 

119 IF SCREENS (A+1,B/2"+" THE 
BEER .2,10: BEEP ,2.5: BEER .2 
10. PRINT INK 2; FLASH 1; "ACCID 
NTE“; INK 8; FLASH 8,” MARCADOR 
vs;4 

120 LET S=541 

138 PRINT AT A.C; 

138 60 TO SQ 


MARCADOR $1 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Ajedrez 


Modalidad: SLOW o FAST. 

Dificultad de programación: difícil. 
Categoría del juego: para dos jugadores, 
Dificultad del juego: difícil. 


No podía pensarse que en 1K-Octeto y utilizando el Basic pudiera 
realizarse un programa que permitiera al ZX jugar al ajedrez 
El programa que se propone permitirá solamente a dos jugadores 
disputar una partida, utilizando la pantalla del televisor como tablero 
de juego. 

No hay control de validez de las jugadas; solamente una gestión de 
las piezas sobre el tablero. Las piezas se representan por su inicial, 
P para los peones, T para las torres, A para los alfiles, C para los 
caballos, D para las reinas y R para los reyes. El color del fondo 
permite distinguir las piezas negras de las piezas blancas. 


La línea 19 realiza la impresión del tablero. 

La línea 29 indica el jugador que tiene el turno (negras o blancas). 
Las líneas SO y 69 detectan el símbolo presente en la casilla de salida. 
La línea 78 verifica que la casilla designada no esté vacía y que la 
pieza que se maneja esté en su color correspondiente. 

La línea 80 busca si la pieza que tiene que desplazarse ocupaba una 
casilla blanca o una casilla negra, y la línea W saca la pieza, volviendo 
a imprimir el color de la casilla. 

Las líneas 104 y 129 solicitan la casilla de llegada. 

La línea 130 realiza la impresión. 

La línea 150 asegura el cambio de jugador. 


Se pone en marcha la ejecución por RUN. 

Se dibuja el tablero y aparece la pregunta JR BLANCAS SALIDA 
(LC) ; se introduce la línea, después la columna de la pieza que se 
moverá, bajo la forma, por ejemplo : 24 (peón blanco de la línea 2 y 
de la columna 4), seguido de NEWLINE. La pieza desaparece del 
tablero y se obtiene la visualización P : 24 (notificación de la pieza 
desplazada) JR BLANCAS LLEGADA (LC) ; entonces se teclea la 
línea y la columna de la casilla de llegada, bajo la forma, por ejem- 
plo : 44 , seguido de NEWLINE. 
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POSIBLES EXTENSIONES: 


Podrá realizarse un grafismo más preciso (un posible ejemplo 


se proporciona en esta misma obra). Sin demasiadas dificultades, 
podrá también introducirse el control del movimiento de las piezas. 
No quedará nada más que escribir el programa del juego del ZX 


¡ÁNIMO! 


AJEDREZ 


PROGRAMA ZX 81 


38 PRINT "SAL. 
48 INPUT 0$ 
50 PRINT AT VAL DS(SGN PI) ,UAL 


«Lor 


Ds IU); 
68 LET CsPEEK (PEEK 16 
PEEK 16399) ió 
e 
ca" A 
H) THEN GOTO CODE e 


5808 LET S2 (VAL 06 
$ (0) /UzINT 
D4 (UU) 
90 PRINT 


s 
108 PRINT AT 
"¿D$;AT CODA 


Le) 

E] 

PRINT AT VAL DSISGN PI) 
15 CHAS C¡AT PI+PI,NOT PI; 


HABS (H-SGN PI 
TO CODE " y 


(SON PI) +VAL D 
CUAL DELSON PI) +UAL 


" AND NOT 5; "MM" AND 


BEYPI¿NOT PI CHRS 
“$0 NOT PI; “LLE 


€ 
6 


VAL 


R 
(1 
0 LET 
a GO: 


12348878 


17 a 


yA NEGRAS 
SAL. (Lolo 
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PROGRAMA ZX SPECTRUM 


2 PAPER $: CLS 

5 LET Msi 

7 LET Usz 

10 FOR ja1 TO 6 

12 PRINT AT 0,J+I+1;T:AT 1+1,0 


14 1,3434 (1,22 
10: Be le o 
16 PR. +33 (1/2 INT 


DU 
“7 OUER 1,AT l+I-1, al 


A 

13 NEXT 1 

20 FOR 1=1 TO 8 

22 PRINT INK 2,AT 
AND Lado 
“RA” AN E 
1=6;" ANO. I=8, Eye 4 
¿19341 

23 Bhsir INK 1:AT RES A 
AÑO Ei cb Leg PIT TANO 1x0 
¿OEA AD qsas Or ANB zos cio ANS 
ru 00r ARS 17 ho AND 100 
16/19oE1, Me" 

28 NEXT 1 E 

29 PRINT AT 20,9; "JUGADOR * "A 
ZUL”;” AND NOT Mm; "ROJO:" AND Á 
ud0 BEER _.09,10: INPUT “SALIDA 

So PRÍÑE AT 2svAL 0812) .3rUAL 
DSi) +2; 

60 LEFT CRH2SCREENS (2*UAL 0411) 
¿IFYAL 08 (0) +4) 

70 TF Chet" OR COEM OR IO? 
“zi AND OH) OR (Oscar AND NOT mi 


THEN GO TO 29 
88 LET SE (VAL DECI <YAL 05007 


/UZINT ((VAL DS (1) +VAL DS (011 Y) 
¿90 PRINTO" AND NOT 3," AÑO 
109 Ay AT 28,13; "JUEGO :*;CS 

“128 DER, ¿00/15: INPUT "LLEGADA 

, 
133 PAINT 9T 24VaL DEC) UA 

DS /UI +1 INK mM+3:05 
150 LEf A=ABS (M-1) 


169 GO TO 29 


osorno 
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Peligro espacial 


REFERENCIAS: Modalidad: SLOW. 
Dificultad de programación: difícil. 
Categoría del juego: juego de reflejos, para un jugador. 
Dificultad del juego: mediana. 


EL JUEGO: El jugador está al mando de un vehículo espacial, que acaba de 
penetrar en una nube de meteoritos. 
Se intentará atravesar la nube, sin chocar con ningún meteorito. 
La puntuación se visualizará al final de la partida, o cuando se haya 
colisionado con uno de elos. 


EL PROGRAMA: La posición de cada meteorito está determinada por la línea 10, y se 
imprimen por la línea 28 (gráfico de desplazamiento A). 
El avance de los meteoritos se realiza por dos instrucciones 
SCROLL, en las líneas 39 y 4. 
Las líneas 45, 46 y 47 verifican si se ha chocado con un meteorito. 
La línea 69 dibuja la nave espacial, y la línea 79 permite desplazarla. 
El contador se encuentra en ki línea 89. 


PARA JUGAR: El juego se pone en marcha por la orden RUN. 
La nave espacial aparece en el centro de la pantalla, y los meteoritos 
salen a su encuentro, partiendo de abajo de la pantalla. 
Para desplazarse, pueden utilizarse las teclas de desplazamiento 
horizontal (5 y 8). 
Puede pararse la partida en cualquier momento usando BREAK. Si 
no, el juego termina cuando se choca con un meteorito; entonces se 
visualiza la puntuación. 


POSIBLES EXTENSIONES: Sería interesante que el juego fuera cada vez más difícil, 
haciendo aparecer más meteoritos a medida que se desarrolla la 
partida. 

También puede intentarse destruir los meteoritos pulverizándolos a 
medida que vayan apareciendo. 
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PELIGRO ESPACIAL 


PROGRAMA ZX 81 


S LET X=i2 

7 LET Z=NOT PI 
10 LET HaINT_ (RAND de 

20 PRINT AT 20,H; "IN" AND RNOC. 


38 ¿Ron 

49 SCRÓLL 

45 PRINT AT 12,X; 

46 LET CaPEEK (PEEK 15598+255% 
PEEK 16399) 

47 IF CHR$ Ce" THEN GO TC CO 
DE_ "CDs * 

$50 PRINT AT 19,X- 

50 PRINT AT 12,X: 

70 LET xaX4 (INKEVS="8" AND x:3 
0) -(INKEV4="5" AND X7NOT F1) 

80 LET_Z=2486N PI 

$8 GO _TÓ 18 

208 CLs 

218 PRINT “MARCADOR ",2 


n” . 
ve 
” 2 
, " Ss z 
» u 
.. e . 
a u e . 


PROGRAMA ZX SPECTRUM 


S LET xa12 

7 LET 738 

19 LEY HxINT (ANDAJO1 

20 PRINT PAPER 2:57 20.H;"Z" A 
ND_AND<-2 

30 PRINT PAPER 6;AT 20.INT (RN 
D0+30), "2" AND RND<.5 
49 POKE 23692 PRINT <HRG 13 
45 LET BORSCRÉENS (12,X+1) 
46 LET CARSCREENS (12) 
47 _1F Cóx"Z" OR Bex"Z" THEN 60 


$0 PRINT AT 19,X=2;" 
$69 PRINT INK S;AT 
70 LET X=xX+(INKEVB="S 
0) - (INKEYS="8" AND X>9) 
89 LET Z=Z41 
$8 GO_TO 10 
200 CLs 
210 PRINT FLASM 


FLASH 8,7. BEEP 
16: BEEP .3,5 
zz 
z 
z 
e z 
z 

z 

z 
z 
5 z 
z z 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Tic tac toe 


Modalidad: SLOW. 

Dificultad de programación: mediana. 

Categoría del juego: de reflexión (dos jugadores). 
Dificultad del juego: fácil. 


Un gran clásico de los juegos para escolares, propuesto aquí en una 
versión que no implica el juego de la máquina; cada jugador, en su 
turno, deberá colocar un Y o una X en una casilla libre de la rejilla del 
juego, y el primero que consiga un alineamiento de 3 símbolos 
idénticos ha ganado (el alineamiento puede ser horizontal, vertical o 
siguiendo una de las dos diagonales). 


El campo de juego se dibuja con la ayuda de dos bucles 1 (19-25 y 
27-44). 

La línea 60 se ocupa de visualizar el símbolo X o Y, correspondiente 
al jugador que tiene el turno. 

Un símbolo intermitente (línea 119) se visualiza arriba y a la 
izquierda del campo, incluso si la casilla ya está ocupada; las líneas 
123 y 125 permiten desplazar el símbolo sobre el campo de juego. 
La línea 149 verifica si la casilla que se quiere jugar está libre y si se 
desea utilizarla. 

La línea 150 visualiza la jugada, y la línea 169 realiza el cambio de 
jugador. 


En cuanto se pulsa RUN se visualiza el campo de juego. 

Un símbolo intermitente aparece entonces arriba y a la izquierda de 
la pantalla; el jugador puede desplazarlo sobre el campo de juego 
con la ayuda de 4 flechas (teclas 5, 6, 7, 8). 

Cuando se llega sobre la casilla que se quiere jugar, basta con pulsar 
la tecla 9; la jugada será rechazada si la casilla no está libre. 
Si la casilla está libre, se inscribirá el símbolo que corresponde a este 
jugador y se realizará el cambio de jugador. 

Cuando se termina la partida, será conveniente pulsar BREAK para 
salir del programa. 

A continuación, podrá jugarse otra partida con RUN. 


POSIBLES EXTENSIONES: Después de cada jugada podría realizarse un control para 


verificar si uno de los jugadores ha ganado. También puede 
realizarse un juego de máquina, pero debería evitarse que fuera 
demasiado sistemático (por ejemplo, la máquina jugando siempre su 
primera jugada sobre la casilla central). 
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TIC TAC TOE 


PROGRAMA ZX 81 


10 FOR 1x2 TO 6 
29 PRINT AT_INT P ar 
0 IE 
NEXT Í 
27 FOR I28GN PI TO 7 
A + PRINT AT SGN P 
a 


"¿AY I,SON Pl; 
NEXT” 1 
$50 LET KzN0T PI 
69 PRINT AT _12,NOT PI; "JUGADOR 
egos AND K;"X" AND NOT K 
LET 1=5ÓN PI 
LET Jar 
PRINT AT I+T Y+y; 
LET CÑPERK (PEEK 18396+258% 
16395) 
BRINT “a” 
PRINT AT I+I Y+J¿CHRE C 
123 LEY IxI+(INKÉYe="8" AND IcI 
NT OPI) -(INKEYS="?" AND I>SGN PIi 
128 LET J=J+(INKEYS2"8" AND I<1 
NT PI) -(INKEYB="S" AND Y:SGN PI) 
149 IF CHAS Cc)” " OR INKEYB<>" 
e THEN GO To 80 
158 PRINT AT I+I,JY+J;"0" AND K; 
“X% AND_NOT_K 
1089 LET 5=aas (K=3GN PI) 
178 G0 TO 


JUGADOR Y 


PROGRAMA ZX SPECTRUM 


19 FOR 122 TO 6 


20 PRINT INK SAT 9,1,* 5 
E 

27 FOR 1=1 TO 

30 PRINT_INK DAT ALI AT 7 
E TEA AE > 

40 NEXT 1 

50 LET x=0 

58 PRINT PAPER 4; INVERSE 

12,0," JUGADOR ";"0" AND K 
ND_NOT_K 

70 LEY Ia1 

B0 LET JY=l 

90 PRINT AT I+I JJ; 

100 LEY C=C0DE SÓREENS LI+I.44J 


118 PRINT “a” 


+ (INKÉYS= 
AND 1>1) 
125 LET J=J+(INKEY 
3 (INKEYS="5" AND Y>1) 


3" AND eS 
149 IF CHA CC" " OR INKEYbc>" 


- 0" THEN $0 TO 98 

150 PRINT AT Iel,J+4J;"0" AND My 
“X% AND NOT K: BEÉP ,3,10+8%k 
169 LET KxABS (K-1) 

178 G0 TO 69 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Reloj 2 


Modalidad: FAST. 

Dificultad de programación: difícil. 
Categoría del juego: dibujo. 
Dificultad del juego: ninguna. 


Este segundo programa de simulación de un reloj digital en tamaño 
grande presenta la interesante particularidad de utilizar el generador 
de caracteres del ZX. 


Así, son los caracteres de origen los que se reproducirán ampliados. 


La línea 110 permite la introducción de la hora, bajo la forma de un 
entero de 4 cifras. 

La línea 130 recurre al generador, el cual dibuja los caracteres 
ampliados (subprograma clásico de la línea 9009 a la línea 9150). 
Los caracteres son establecidos a partir de la dirección 7689 en el 
ZX 81. 

La línea 220 se encarga de la puesta a cero al cabo de 24 horas. 
Las líneas 170, 173 y 175 calibran el número introducido, para 
realizar una visualización en tamaño estándar. 

El ajuste del tiempo se realiza en la línea 149. 


Pulsar RUN, y después introducir un entero de 4 cifras (las dos 
primeras representan la hora, las dos siguientes los minutos : 0416 
significará 4 horas y 16 minutos). 

Esperar la cuarta señal para pulsar NEWLINE, y empezará la 
visualización. 

Podrá ajustarse el reloj aprovechando la duración de la pausa, en la 
línea 140. 


POSIBLES EXTENSIONES: Puede hacerse que los dos puntos sean intermitentes, añadir 


la posibilidad del reloj despertador, prever una agenda automática, 
hacer aparecer un cuco cantando al sonar las horas, etc. 
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RELOJ 2 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 

109 INP 100 INPUT “HORA (HAM “¡As 
118 CLa 110 PAPER 6. BORDER 5: CL5 
118 LEr 118 ET Usio 

120 Lar 120 Ler 

158 90s' 138 55 sun dono 

120 PAY 140 PAUSE 2840 

359 Ler AL ASIA TO 5 150 LET FR EGOAL Asa TO 

158 LEY TO 2 155 LET JRUAL 2 

150 15 THEN GOSUB CO 169 1F_1=68 7 EN so sus 200 
DE "cós * 320 POS y 

19 ter ; E Ei AmAR CEN Esa TO reno 

- + 

EL] E 178 LET AS=AB( TO 2)+ABILEN AB 
178 Ler INT PIAR (LE 1,70 

N58-50N 182 Go TO 110 

186 coro 209 LET 128, 

zó0 LEr or 219 LET Js 

210 J9N Pz 239 Tr gmal Hhuen LET Ja0 

DES AN LICOR Or THEN LET Jano 239 REN 
T PI 2588 PoR k=o 

238 9018 LET Nozsbboe+coDE SEN 
9909 o 3020 FOR 1=8 TO 

$019 S9N PE TO LEN As 3838 LE? aber xn 

2020 LET PS OLA 9048 FOR /30 TO 

2038 GOSUB ye 3058 IPUZaS INT 0YL25 THEN PRIN 
Se29 Cer Duro TAT 741 AA (4d) JR (KE) IN 
20s9 NEXT A TOA Y 

q999 AETUAN 110 LET_Y=INT (4/2) 

$900 LE? pl 3138 NEXT 1 

” +95X 

290017 2140 NEXT K 

Si39 Y BNO GorO 9100 A 

PLi0 Pl QN PI.I 

qi3o L 5 (CODE X$-CODE z 

ER N 

Q140 NN 

91S0 Ri 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Damas 


Modalidad: SLOW o FAST. 

Dificultad de programación: muy difícil. 
Categoría del juego: dos jugadores. 
Dificultad del juego: difícil. 


Es el clásico juego de las damas, pero algo incompleto (1 K obliga) ya 
que no prevé la posibilidad de hacer damas. La regla del juego 
continúa siendo la clásica, pero los controles han sido un poco 
simplificados. Los movimientos de las piezas se introducen en una 
sola maniobra (posición de salida y dirección de desplazamiento), y 
las capturas se realizan automáticamente. 

En cambio, ya que por cada jugada se realiza el cambio de jugador, 
será necesario pulsar Y para volver a jugar en el caso de que hubiera 
un salto o si la jugada no fuera posible. 


El bucle 1 (20-40) dibuja el tablero (10 x 10 casillas) y los peones 
(X o 0). 

La línea 59 indica quién debe jugar. 

El cambio de jugador se trata por la línea 75 (introducida por 0). 
Las líneas 89 y 94 calculan el desplazamiento, que se realizará, 
cuando sea posible, por el bucle 1 (129-219). 

La línea 139 calcula la casilla de llegada (se tiene en cuenta, por si 
acaso se llegara a la línea P, en la línea 140). 

Las líneas 159 y 166 comprueban las casillas que hay que recorrer, La 
línea 18 trata el caso de un desplazamiento, y la 199 el de un salto. 
La línea 229 efectúa las eventuales modificaciones, y la línea 229 
realiza el cambio de jugador. 


En cuanto se pone en marcha el programa por RUN, se visualiza el 
tablero con sus peones y un carácter 0 invertido aparece por debajo, 
para indicar que el turno pasa al jugador que ha escogido 0. 
Se juega indicando, por un número de 3 cifras (puede empezar 
por 0), la línea y la columna de la pieza que tiene que desplazarse, y 
después la dirección del desplazamiento (codificado de 1 a 4), 
siguiendo la regla convencional: — 4 1 

3 2 
Por ejemplo, 931 significa que el O situado en la línea 9, columna 3, se 
desplaza en la dirección 1 (no olvidar pulsar NEWLINE). 
Del mismo modo, 263 significará pieza X, línea A, columna 6, 
dirección 3. 
El cambio de jugador se efectúa automáticamente, será necesario 
pulsar 0 para volver a jugar, si la jugada ha sido rechazada o si ha 
habido captura (terminar siempre con NEWLINE). El programa no 
controla hacer damas y no prohíbe los desplazamientos hacia atrás. 
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POSIBLES EXTENSIONES: Será bastante fácil empezar mejorando los controles (cambio 


de jugador, jugada hacia atrás que no corresponde a una captura, 
salida del tablero). 


Se considerará el hacer damas, su desplazamiento y, llegado el caso, 
escribir un programa que permita al ZX mezclarse con éxito en 
apasionantes partidas. 


DAMAS 


PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 


18 LET MaSGN PI 

20 FOR I=NOT PI TO PI+PI 
Mee Pee A E 

id PE 


" AND Hi+1"B" AND 


69 PRINT AT CODE ")”,U;As 

79 INPUT R$ 

73 _IF_ NOT ÚAL RS THEN GOTO 20D 
E" PAST 

80 LET D=UAL RELINT PI) 


OU AND mo 


90 LET D=INT (PIF+PI) +! (O=INT P so Prrur AT 12 24 CC JUBADOR AT 
y .02S8N PD)+INT (PI+PI+UI ELLO 7 28,9. BEEP .03.10 
Meios o a 3 

al y Ni Mm al 

DE CEL Ang nero y qa 

= 1) 

120 FOR I=5GN PI TO INT PI 38 HE ERA AIRES ES 

139 LEY RSaSTRS ABS (T+(1-SGN P ball» (Dar) 

DAD) a 189 LET Esaro a 

e IF LEN R$6<U THEN LET R$='0 e] q aya ALTO 

ide RINT AT VAL BELIUN PI) +5GN j ha nr 3: 

PI L RSIUI+SGN P y F5r > 4 qe,3 

Lee nan gUON SELLA LD 1298S, AE 
CU THEN pe 

159 4 8 E EOOOs ¿ALO TFN RASO THEN _ 

+ yu AL REr10 E al e 

138 B7)=98 ANC 8800 rg RD ra Ñ 
DN pe THEN LEY 150 1% Ral THEN LET Bsil)23CPEE 

y 000) 

20 154) No IF Jal AND RaU_ ANO SCREZMUG 
(Y 0 a TMEN LET 3=4 
220 LET R=R-SGN PI 190 IF BSi TO VU) A+" THEA LE 
225 IF _R THEN GOTO 129 TOUBS( TO Ulea" “AG: LET 522 
229 LET H=NOT mM 199 IF B5(1):2A8 AND Bs ¿48 
240 GOTO CODE "Mm" ND BS i3)3" THEN LET Bs as 
LET 53:0 
> F 3<4 THEN PRINT INVERSI 1 
ARAR A MET TE E PEO 
219 NEXT _I 
220 LET R=R-4 
225 IF_R THEN GO TO 125 
2239 LET_H=NOT Mm 
249 G0 TO 50 
0125354567339 
ñ 
JUGALOR 
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Anagramas 


Modalidad: SLOW o FAST (impuesto por el programa). 
Dificultad de programación: difícil. 

Categoría del juego: juego de reflejos (dos jugadores). 
Dificultad del juego: según el nivel. 


El ZX escoge letras al azar; el número de letras está en función del 
nivel de dificultad escogido. Después se mezclan las letras de la 
palabra obtenida de esta manera y se visualizan en la parte inferior de 
la pantalla; entonces se confecciona una nueva palabra de forma 
aleatoria, a partir de las mismas letras, y se visualiza debajo de la 
primera, y así sucesivamente; los dos jugadores (derecha e izquierda) 
disponen cada uno de una tecla (1 o D) y deben pulsarla en cuanto 
vean que se visualiza abajo de la pantalla una palabra que ya está 
presente en la pantalla; entonces se calcula su puntuación, y se 
muestra un mensaje correspondiente al resultado. 


El nivel del juego se introduce en la línea 29. El bucle 1 (30-50) 
realiza la elección de las letras. 

Un segundo bucle 1 (89-135) efectúa la mezcla, y la línea 1049 permite 
detectar la presión sobre una tecla. ] 

La línea 140 visualiza la nueva palabra, y la línea 155 hace subir una 
línea en la pantalla las palabras que ya se han obtenido. 

La línea 189 detecta al jugador que ha pulsado una tecla. 

El bucle 1 (198-268) explora las palabras que están presentes en la 
pantalla, línea por línea, mientras que el bucle J (214-24P) capta uno 
a uno los caracteres de estas palabras. Se obtiene, de esta manera, 
una nueva palabra que se compara con la palabra inicial en la línea 
250, y si son exactas aparece el resultado BRAVO. 

Si no son exactas, se termina la partida con la visualización HA 
PERDIDO (línea 270). 


Se pone en marcha el programa por RUN. 

Después se introducirá el nivel de dificultad (en principio de 1 a 3) y 
se pulsará NEWLINE. 

Las palabras se visualizan saliendo por la parte inferior de la pantalla 
y van subiendo a medida que se obtienen; si uno de los jugadores 
cree reconocer en la palabra que aparece una de las palabras que ya 
se han visualizado, deberá pulsar inmediatamente su tecla (1 o $), y 
se visualizará su resultado después de un corto instante. Entonces se 
termina la partida. 
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POSIBLES EXTENSIONES: Podrán utilizarse otras visualizaciones además de palabras, 
modificar los tiempos de visualización, participar más de dos 
jugadores, introducir sonido y color, etc. 


ANAGRAMAS 


PROGRAMA ZX 81 


NT "NIVEL (1/3) " 


S9uSS 
zo 
Des 


Carrz Paro 


N+INT PI 
HRS INT (38+264R 


z 
9 


¿DIBAMPOLURIO VOJAM RO 


TO LEN S$ 

EN SG4ANDISON P 
" OR INKEYB="1" 
THEN 00 TO 98 
N 


É 
OO Sr o ps 


UNRSO= 
SSS8S SOSSUASASIANAS YOUO 


Ea 


que” 973% 983 


DER 
Dm 
lx 4 


LE? Hs=("DERECHA" AND INKEY 
EC TESUIERDA "AND INE Ga 


ue 


Eo Eon PITO LEN Ss 
AT 


Mes IN PEER (PEEK 1 
coo asosPEER 18399) 


230,15 BgSSg THEN, PRINT TAB LEN 
SESINT PE "BRAVO "; M8; 


NEXT Y 
208 PRÍNT TQS LEN SesINT Pr 
PERDIDO “¡MH 


BRAVO DERECHA 


CHICHE CAMEME 
DOSOMCEMÓ LACA 
MECANO CH 


PROGRAMA ZX SPECTRUM 


19 PRINT ONIUEL (1/3/* 
292 Pere 

25L pl 

39 FOR 57 

40 LET Esos INT (55+25+R 


3 

9 BARND +1 

+ REO Bea 
E N GO TO YO 
1 

1 

1 IM INT (Ss 
4RNI 20,0;8$ 


SAD! 


PORKE 23092,0: PRINT OMR (2 


rata 
rr 


60 
LET Ms=("DERECHA” AND It 
Brel TEGUIERDAS Ano 1RKE? 


FOR I=1 TO 18 
ET BÉ 


L 
FOR Y=l TO LEN SÍ 

LET Re=SCREENS (1.11 
ET BE=DS+RE 


NEXT y 
250 1F Bs=8% THEN PRINT FLASH 1 
¿ INK 2;AT I,LEN S8+3; "BRAVO ":H 
$ reraa o BEEP .3.18: BEER 


268 NEXT 
278 PRÍNT TAS LEN 5610, INUERSE 
1; HA PERDIDO ";M4: BEÉP .3.-8 
BEEP .3,-8: BEEP .5,-18 


BRAVO DERECHA 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 
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Huevos 


Modalidad: FAST o SLOW. 
Dificultad de programación: difícil. 
Categoría del juego: solitario. 
Dificultad del juego: mediana. 


Un pájaro misterioso se desplaza al azar aleteando en la pantalla. 
Pone huevos (representados por 0) que el jugador (un + invertido) 
intentará recuperar. La puntuación (número de huevos recuperados) 
estará permanentemente visualizada, y la partida se desarrolla en un 
espacio de tiempo limitado. 


El pájaro se dibuja en dos partes (para el movimiento) en las líneas 
59 y 70; su desplazamiento aleatorio se gestiona por el subprograma 
200-279 (en particular, las líneas 230 a 260). 

La línea 108 permite volver a cerrar el programa con la línea 59. 
El desplazamiento del jugador está dirigido por las líneas 169 y 170, y 
la comprobación que permite detectar la presencia de un huevo se 
efectúa en las líneas 175, 178, 181. 

La línea 186 permite la visualización de la puntuación. 

El final del juego se detecta en la línea 214. 


Se pone en marcha el programa con RUN. 

Entonces, el pájaro empieza a desplazarse al azar sobre la pantalla y 
a poner huevos. 

Cuando el símbolo que representa al jugador (un + invertido) 
aparece en la pantalla, éste puede desplazarse utilizando las 4 teclas 
de desplazamiento. Desde entonces se intentará recuperar el máxi- 
mo de huevos antes del final de la partida. 

Se podrá parar el juego en cualquier momento pulsando BREAK. 


POSIBLES EXTENSIONES: Sobre el mismo principio, podrán fácilmente imaginarse otros 


temas de juego. También puede introducirse color, sonidos, mejorar 
el grafismo y, eventualmente, definir un juego para varios jugadores, 
cada uno intentando recuperar el máximo de huevos. 
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HUEVOS 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
Mo PAPER 6: INK 0: BORDER 1: E 
15 LET P=208 
30 CET X=INT 1RND+20 
50 CET Y=INT (RNDx20; 
40 LET R=0 
e Ea 
$ BRINT Ar z 
: SO PRINT INK S¿AT_x ¿Ys 
E Teva EN SOSUB; 18 5037 IF INES O" TRÉN ua 1 
09 PRNe aroR $9 60 sub 288 
GOsu8 CODE '*co ¿9 PRINT INR SAT xa 
GOTO cóDE $0 so t1) 
O CET maño brete ano e E: 
ao ROT B 189 LET Res AE pm AND P<2 


AND A! 
NES AND 503 
DTS AN AND 529 

178 SCREENG (RA 


13 
e] 
170 LET Sas+ (INKEY4="8" AND S:C 
gas año Sino 


1) 
178 PRINT AT RS 
178 LET A2PEEK 18398+256+PEEX 1 


399 
161 LET pspren ARCODE "0" 
ER PRINT + CODE “«”, CODE 


31 


165 PRINT AFer. 12; "maRcaDoR 


'URN 

Asx 
210 LET Bay 
212 LET P=P-SGN PI 
214 IF NOT P THEN STOP 
218 PRINT AT aso 
228 PAUSE CODE “PI 
225 PRINT AT 4,8;" O” 
239 LET X=2ABS (X+24+RND-SGN PI;/ 
per VYRABS (Y+44RND-5GN PI-S 
39 TF XOCODE "E" THEN LET x=S0 
nO IF Y>CODE "=" THEN LET v=5G 
278 RETURN 


o 08 
o o , 
ao? 8 MA "TERMINADO A 7 
o o 00 
0 
o 
o 
24 MARCADOR :40 
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Visualización giratoria 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


(vertical) 


Modalidad: SLOW. 

Dificultad de programación: difícil. 
Categoría del juego: anuncio publicitario. 
Dificultad del juego: fácil. 


El programa propuesto realiza el desfile de un texto, visualizado en 
caracteres gruesos, en la pantalla. 

La utilización del generador de caracteres permite simplificar 
considerablemente el programa, lo mismo que la utilización de la 
instrucción SCROLL, propia del ZX, que garantiza el desfile. 


La línea 29 permite la introducción del texto, que será ordenado en 
una variable alfanumérica AS. 

El bucle A (39-79) realiza la visualización letra por letra, recurriendo 
al subprograma 204-319 que utiliza el generador de caracteres 
(línea 210) con una técnica de impresión muy simplificada (bucle 
T (230-280), para asegurar la impresión de cada línea). 

Los diferentes SCROLL (60, 80, 85, 299) permiten el desfile vertical. 


Primeramente se pondrá en marcha el programa por la instrucción 
RUN; después se introduce el texto, y a continuación se pulsa 
NEWLINE y se mira. El programa es un bucle en sí mismo, y el 
desfile sólo podrá interrumpirse pulsando la tecla BREAK. 


POSIBLES EXTENSIONES: Bastará con tener algo de imaginación (y disponer preferen- 


temente de una capacidad de memoria mayor) para adaptar este 
programa a cualquier tipo de visualización publicitaria (se trata 
entonces de atraer la atención, por una parte, y de informar, por 
otra). Para este fin, podrá utilizarse color, personalizar los mensajes, 
utilizar varias líneas, etc. 
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VISUALIZACIÓN GIRATORIA (VERTICAL) 


PROGRAMA ZX 81 


CL5 

INPUT AS 

FOR A=SGN PI TO LEN AS 
LET_X=CODE AGIAs 

$0 SUB 200 

SEROLL 

NEXT A 

SCROLL 

SOROLL 

65,93 

FOR Y=NÓT PITO 8 

LEF RSPEEK I7eB09exav) 
LET 
FOR 
LET 
LET 
LET 
GETZ TREN Pazmr 
NEXT Y 

SCOLL 

NEXT Y 

RETURN 


AT 20,7 
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POKÉ 23592,0 


BRINT Cura 13 


70 
30 


NEXT_A 


PRINT AT 20,8: POKF 23592.0 


ERINT CAR$,13 


308 
310 


o To 30 


1 AND Y:2b THEN INK Y 
(PEER 23605+255+ 
BIBO7IS EXI) 

LET $=126 

FGR T=15 TO 22 

LET OZ=INT (R/S5) 

LET RR-Z+S 

LET 328,2 E 

TF Z THEN PRINT AT 28.7:" 


POE 23632,0 


| NEXT_T 
0 PRINT_AT 20.0 
PRINT CHAS 13 


NEXT Y 
RETURN 


De 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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cuatro en cuatro 


Modalidad: SLOW. 

Dificultad de programación: difícil. 

Categoría del juego: reflexión (uno o más jugadores). 
Dificultad del juego: difícil. 


Puede practicarse por uno o dos jugadores. 

En los dos casos, el objetivo consiste en cambiar los peones X por los 
peones 0; si solamente juega una persona, este cambio deberá 
realizarse en el menor número de jugadas posible. Los peones se 
desplazan alternativamente, respetando las reglas de desplazamiento 
del caballo en el ajedrez; no existe captura, y no puede saltarse un 
turno de jugada. 


La variable alfanumérica AS, en la línea 15, contiene la tabla de 
posibles jugadas (desplazamiento del caballo). 

Los bucles intercalados 1 (25-59) y J (39-47) dibujan el campo de 
juego y las posiciones de salida. 

La línea 66 visualiza O o X, según el jugador que tenga el turno. 
La línea 75 permite la visualización parpadeante del cursor (aquí 
un + ), que indica en qué casilla se encuentra el jugador. 

Las líneas 94 y 95 permiten el desplazamiento del cursor. 

La línea 190 comprueba si se ha pulsado sobre una tecla del 1 al 8, 
dando la dirección del desplazamiento. 

La línea 189 vuelve a imprimir la figura que estaba debajo del cur- 
sor. La línea 187 transforma en número el símbolo de cifra pulsado. 
La línea 190 efectúa el control de salida. 

Las líneas 195 y 209 efectúan el desplazamiento. 

La línea 219 realiza el control de llegada. 

El resultado se imprime por la línea 215; el cambio de jugador se 
realiza por la línea 220 y se imprime un . en el lugar de la salida (línea 
223). El subprograma 229-24f se utiliza para los distintos controles. 


Se pone en marcha el programa por RUN. Se visualiza el campo de 
juego, igual que un símbolo que permite identificar al jugador que 
tiene el turno. El jugador puede escoger el peón que desea desplazar, 
manejando el cursor parpadeante gracias a las teclas D (->), I(e-), A 


(1), B (4). 


Para desplazar el peón, bas- 6 7 
tará' con pulsar la dirección 5 E 
de desplazamiento, mientras 

el cursor esté encima de este 4 1 
peón, siguiendo el código: 3 2 


Se rechazará la jugada si la posición de salida no es correcta o si la 
posición de llegada está ocupada. En caso contrario, se realiza 
la jugada y el turno pasa al otro jugador, el cual desplaza el cursor 
parpadeante hasta colocarlo sobre uno de los peones y realiza la 
jugada de la misma manera. 
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El jugador que gana es el que consigue situar primero todos sus 
peones en las posiciones iniciales ocupadas por el adversario. 
Puede interrumpirse la partida en cualquier momento pulsando 


BREAK. 


Silla maniobra de la tecla INKEYS$ lleva en algún momento a salir del 
programa, deberá pulsarse GOTO 66 para continuar. 


POSIBLES EXTENSIONES: 


Puede utilizarse el color, mejorar los controles, prever una 


comprobación del final, utilizar un campo de juego distinto; puede 
también considerarse la escritura de un programa que permita al ZX 
participar en el juego con muchas posibilidades de ganarlo. 


DE CUATRO EN CUATRO 


PROGRAMA ZX 81 


19 LET H=SQN PI 
15 LETA 

18 LET JaVAL 
25 
30 
3 


20 ¿INT PI AND, sg cin EL TH 
en Briur AT ie tdo, 
45 IF 1>INT CA Sd inT PI TM 


(INKEY6="8" AND_XcC 
10 AND X>S6N E 


AND Y <C 
aro Peon E 


¿a? AND INKEYS>"0 

Tí En a] ¿Eeo; cues I 

DE 

BC sTAs 

J*PTIO 

1OCc 
L 


Ss a 


>c00. 
OR 9DE, A AND NOT 


y) Cl 
J+2) 


:ODE 
=CODE 
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SosyB coQE 
CODE “. 


PRINT “o” 
LET HABS. 


LET 
SOTO CODE 


PRINTS 
(BEEK” 16398+255+ 


FAST" 
“THEN GOTO CO 
AND H;¿"X”" AND NOT 
(H-SGN PI) 


27 


PROGRAMA ZX SPECTRUM 


no 
59 
T pde E EN 


paño US THEN PRINTOA 
ANO Y>9 THEN ORINT A 


GADOR ";70 
“AND 
B47 60 si 
356 
20 Ll 
38 Li 
20 Ll IX + CINK "B” AND Y:8 
3 - CINKI H" AND 
.L 'Y + CINKI Po AND 0 
ISE a ANO 
199,8 INKEYOIS9" AÑD INKEYM "O 
"THEN E" 34 
100 PRINT AT A+A,B+B¡CHAM TI 
188 60 TO 66 
187 LET >= var Pes 
199 IF J>9 OR (I:5CODE -0" AND 
H) OR LI<>CODE “X" AND NOT m) TH 
EN GO TO 189 
198 LET XsX+VAL RA(J) -d 
ZOO ET e SAL AMIA 2) 
205 GO SUB 229 
¿qio TF IBER. +.* rmen so To 2 
ZAS PRINT "O" AND M:"x" AND NOT 
229 LET HxRBS (M-1) 
229 LET I5CODE "+." 
225 0 TO U 
220 PRINT AT X+XVoY; 
238 LET J2CODE SCREENS 1X4X.V4Y 
240 RETURN 
12345 
100... 
PD... 
Fac 
a. .D.x 
Sos 
YUSBADOR D 
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Revoltijo de letras 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: SLOW o FAST. 
Dificultad de programación: difícil. 
Categoría del juego: de reflexión. 
Dificultad del juego: difícil. 


¿Quién no ha tenido entre sus manos, un día u otro, uno de estos 
pequeños rompecabezas en los que se intenta desplazar de una 
posición a otra pequeños cuadrados de plástico de colores, hasta la 
obtención de un resultado preciso? En su tiempo, el 14-15 de SAM 
LOYD tuvo tanto éxito como el actual RUBIK'S. 

El rompecabezas que aquí se propone utiliza 35 letras, dispuestas al 
azar en un cuadrado de 6 X 6 casillas, y estas letras, colocadas de 
nuevo en su orden inicial, pueden permitir la reconstrucción de un 
proverbio muy conocido. 

Una casilla gris permite desplazar las letras, y un contador visualiza 
permanentemente el número de intentos: ¿llegará a encontrarse el 
proverbio? 


La frase que hay que reconstruir (que podrá, por supuesto, 
modificarse) se sitúa en una variable BS, en la línea 25. 

La mezcla de las letras y la impresión se realiza por el bucle 
1 (40-129). 

La línea 179 realiza la visualización del cuadrado gris; éste se 
desplaza por las líneas 219 y 220, utilizando las 4 flechas. 

Las líneas 249 y 259 vuelven a imprimir la letra referida en el lugar 
del cuadrado gris. 

La línea 260 contabiliza el número de intentos, que se imprime 
gracias a la línea 169. 


Se pone en marcha el programa por RUN. 

La partida será, evidentemente, más difícil si no se conoce el 
proverbio que tiene que reconstruirse. Pueden desplazarse Jas letras 
y hacerlas pasar al lugar del cuadrado gris con la ayuda de las 4 teclas 
de dirección (5, 6, 7, 8). 

El número de intentos estará permanentemente visualizado a la 
derecha del rompecabezas. 

Puede pararse en cualquier momento pulsando BREAK. 


POSIBLES EXTENSIONES: El mismo principio puede aplicarse a todo tipo de juegos 


de revoltijo (manejo de números, de colores y, eventualmente, de 
sonidos). Pueden también preverse varias frases, con una elección 
efectuada por un generador aleatorio, etc. 
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REVOLTIJO DE LETRAS 


PROGRAMA ZX 81 


28 EEE A 
SIEMPRENECESITASAUN 
omaSPEGUEN SUET Y" 


20 FOR I=s0N PITO 35 
50 LET XaINT (RND435+1) 


:60 IF ORSIX)a"-" THEN GOTO 50 
70 LET AMADA 
80 LET REX 2 
110 PRINT AT INT (1/8) ,I-5+INT 
q AU 
120 NEXT 1 
138 LET X2N0T PI 
148 LET Yax 
150 LET Sax 
168 PRINT AT NOY P7,12;5 
170 PRINT AT X.Y ¿“Ne 
168 PAUSE ¿Es 
198 LET Tax 
289 LET Jar 
10 LET XaX+(INKEYS2"5" AND X<3 


2: 
)-(INKEYS="7" AND _X>NOT PI) 

220 LET YaY+(INKEYS="8" AND Y<S 
3-LINKEY$="S" AND Y>NOT PI) 

+] PRINT AT X,Y; 

240 LET CNPEEK 7178 16398+256+ 
PEEK 16399) 
338 PRINT AT T,J;CHRS € 

LET S2S:SGN PL 

278 GOTO 160 
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S LET Asa“ 
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Blancos 


Modalidad: SLOW. 

Dificultad de programación: difícil. 
Categoría del juego: de azar. 
Dificultad del juego: fácil. 


Consiste simplemente en tirar al blanco, intentando obtener el 
máximo de puntos; el número de blancos (de 1 a 3) se escoge al 
principio de la partida, y la puntuación realizada se visualizará 
permanentemente. Si se toca el borde de un blanco, la partida se 
acaba. Cuanto más alto sea el número en el que se caiga, mayor será 
la puntuación obtenida. 


El número de blancos se introduce en la línea $. 

El bucle I (39-50) efectúa la impresión de los blancos. 

La línea 75 visualiza permanentemente la puntuación. 

La bola se visualiza por la línea 80. 

El bucle 1 (109-140) realiza la impresión de las cifras contenidas en 
los blancos y permite el desplazamiento de la bola (línea 124). 
La línea 150 comprueba si se ha tirado, y la línea 169 si la bola aún 
está en la línea de salida. La línea 19% hace avanzar la bola una 
posición a la derecha, y la línea 209 verifica si se han alcanzado o no 
los blancos; después las líneas 210 y 229 comprueban lo que se ha 
tocado, 

La línea 249 aumenta la puntuación; si se desea que el número de 
puntos marcados corresponda a la cifra visualizada habrá que 
escribir: 249 LET S = S + VAL CHR$ C. 

Las líneas 255 y 269 se ocupan del final de la partida. 


Poner en marcha el programa por RUN y teclear el número de 
blancos que se deseen, seguido de NEWLINE. 

Los blancos se visualizan y la partida empieza. La bola, representada 
por un J, se visualiza en la parte inferior a la izquierda; se la puede 
desplazar con las flechas de arriba y de abajo (teclas 6 y 7), y 
puede tirarse en cualquier momento pulsando P. 

La puntuación se modificará en función del resultado, y aparecerá 
una nueva bola. 

Es posible parar el juego en cualquier momento pulsando BREAK; 
si no, el juego se para al cabo de un cierto número de tiradas. 


POSIBLES EXTENSIONES: Se podrá aumentar sin dificultad el número de blancos, 


modificar la regla de aparición de los números en los blancos para 
que no sea tan aventurada, disponer que la bola sea representada por 
una cifra que coincida a la llegada con la del blanco, etc. 
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Gotas 


Modalidad: SLOW o FAST. 
Dificultad de programación: difícil. 
Categoría del juego: dibujo. 
Dificultad del juego: ninguna. 


Es un verdadero programa de dibujo animado que, de hecho, puede 
considerarse como un interludio; se dibuja un recipiente en la 
pantalla, en forma de copa, el cual ya contiene algunos obstáculos. 
Una gota de agua, simbolizada por un cuadrado gris, aparece encima 
del recipiente y cae sobre éste; ésta y otras gotas van Henándolo a 
medida que caen. Cuando la gota encuentra un obstáculo, se 
determina su trayectoria completamente al azar: puede ir a la 
derecha o a la izquierda, hasta que ya no exista ninguna posibilidad. 
Entonces cae otra gota, y así sucesivamente hasta el desbordamiento 
final. 


Los dos bucles intercalados I (12-50) y J (20-40) dibujan el recipiente 
y los obstáculos. 

La línea 109 dibuja la gota. 

La línea 129 borra la gota anterior, y la línea 144 bifurca a un 
subprograma (228-230) que permite determinar si se tropieza con el 
obstáculo o no. 

Si no se encuentra, se va a la línea 212 y la gota continúa cayendo. 
Si se encuentra, la gota va hacia la izquierda o hacia la derecha (línea 
160), según el valor definido por K, en la línea 9. 

De nuevo se mira si hay algún obstáculo o no, o si la gota puede 
continuar cayendo (líneas 174, 180, 190). 

Según el resultado de la comprobación, se utilizarán la 200, 212, 218 
o 223. 


RUN pone en marcha el dibujo del recipiente y de los obstáculos; 
la gota aparece, empieza a caer y termina por encontrar un sitio, Otra 
Bota aparece, y vuelve a empezarse. 

El programa se para por sí mismo cuando el recipiente se desborda; 
también se puede parar en cualquier momento pulsando BREAK. 


POSIBLES EXTENSIONES: Por supuesto, puede añadirse color y sonido, y también 


considerar un juego en el que un pequeño personaje debe escapar de 
las gotas e incluso de ahogarse. 
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Obstáculos 


Modalidad: SLOW. 

Dificultad de programación: bastante difícil. 

Categoría del juego: juego de reflejos (para un jugador). 
Dificultad del juego: mediana. 


Se desplazan obstáculos sobre la pantalla, que van al encuentro de un 
pequeño coche simbolizado por una Y invertida, que dispone de la 
posibilidad de desplazarse hacia la izquierda o hacia la derecha para 
evitarlos durante el mayor tiempo posible. 

Se visualizará permanentemente la distancia recorrida, y el juego 
termina cuando el coche tropieza con el borde del campo de juego o 
con un obstáculo. 


La línea 39 (instrucción SCROLL) hace avanzar los obstáculos hacia 
el coche del jugador, que se imprime gracias a la línea 40. 

Las líneas 60, 70 y 88 confeccionan el recorrido (las líneas 79 y 8, 
aunque idénticas, son las dos necesarias, ya que el valor de RND, en 
principio, no será el mismo en estas dos líneas). 

La línea 9 visualiza el recorrido y la puntuación. 

La línea 190 permite el desplazamiento del vehículo. 

Las líneas 119, 129 y 130 permiten controlar la existencia de un 
obstáculo y paran el programa en caso necesario. 

La línea 150 incrementa la puntuación. 


Se pone en marcha el programa pulsando RUN. 

El recorrido y los obstáculos aparecen en la parte inferior de la 
pantalla y suben al encuentro del coche, representado por una 
Y invertida. El coche puede desplazarse con la ayuda de las flechas 
de desplazamiento horizontal (teclas 5 y 8). 

El tropiezo con un obstáculo interrumpe el desarrollo del programa y 
provoca la visualización de la puntuación. 

Sin embargo, también puede salirse del programa en cualquier 
momento utilizando la tecla BREAK. 


POSIBLES EXTENSIONES: Será bastante fácil, sobre todo disponiendo de un ZX 


Spectrum, mejorar el dibujo del coche, del recorrido, de los 
obstáculos. También podrá introducirse color, admitir un cierto 
número de accidentes, grabar la mejor puntuación (para varios 
jugadores), dibujar eventualmente varios coches, etc. 
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Capturas en el espacio 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: SLOW. 

Dificultad de programación: difícil. 

Categoría del juego: reflejos (un solo jugador). 
Dificultad del juego: mediana. 


Una nave espacial navega en un peligroso campo de meteoritos, y su 
misión consiste en apoderarse de la mayor cantidad posible de 
mineral de uranio, un metal indispensable que sólo puede encontrar- 
se en estos lugares especialmente peligrosos. 

Debe maniobrarse para recoger el uranio sin chocar con ningún 
meteorito. 


La línea 20 permite que aparezcan los meteoritos. 

La línea 30 hará aparecer el mineral de uranio. 

Los desplazamientos en la pantalla se resuelven por las instrucciones 
SCROLL, en las líneas 30 y 40. 

Las líneas 45 a 48 controlan el desarrollo del juego (se ha chocado 
con un meteorito o se ha capturado un bloque de uranio). 

El choque con un meteorito provoca el final de la partida. 

La línea 69 imprime la nave espacial, y su desplazamiento se controla 
por la línea 70. 


Se pone en marcha el programa con RUN, y los meteoritos empiezan 
a subir en la pantalla, lo mismo que los bloques de uranio. 

Las teclas de desplazamiento horizontal (5 y 8) serán utilizadas para 
desplazar Ja nave y recuperar el uranio; pero el menor choque con un 
meteorito provocará el final de la partida y la visualización de la 
cantidad de uranio capturado. 

También podrá pararse el programa en cualquier momento pulsando 
BREAK. 


POSIBLES EXTENSIONES: Puede hacerse el juego cada vez más difícil, aumentando 


progresivamente el número de meteoritos, o también cronometrando 
el tiempo de duración de la partida. 

También es posible prever una visualización permanente de la 
puntuación, introducir otra nave espacial maniobrada por una 
potencia extranjera que también quiere coger uranio, etc. 
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Anuncio publicitario (2) 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: SLOW. 

Dificultad de programación: difícil. 
Categoría del juego: gráfico. 
Dificultad del juego: ninguna. 


Este programa permitirá la visualización giratoria de un texto en 
tamaño grande; utiliza las instrucciones SCROLL y el generador de 
caracteres, pero tiene la particularidad de hacer que los caracteres 
desfilen inclinados horizontalmente, lo que implica inclinar la 
pantalla de visualización, en el sentido de la altura, para obtener una 
visualización gigante con desfile horizontal, de la derecha a la 
izquierda. 


La línea 20 permitirá la introducción del texto. 

El bucle A (30-70) realiza la visualización letra a letra. 

El subprograma, que va de la línea 290 a la línea 320, visualiza cada 
una de las letras en tamaño grande recurriendo al generador de 
caracteres (línea 210) y realizando la decodificación de cada carácter 
verticalmente y no horizontalmente (bucle 1, de 200 a 220). 
Otro bucle 1 (259-280) realiza la visualización. 


Primero se pondrá en marcha el programa con RUN, y después se 
introducirá el texto a visualizar seguido de NEWLINE. 

El texto empieza a desfilar en la pantalla de una forma curiosa, y 
deberá inclinarse el televisor por un lado para poder leerlo. 

La anchura de los caracteres dibujados no permite que haya 
simultáneamente más de tres en la pantalla. 


Puede pararse el programa en cualquier momento pulsando 
BREAK. 


POSIBLES EXTENSIONES: Será posible volver a tener en cuenta esta idea (¡sin tener que 


inclinar necesariamente el televisor!), para realizar toda clase de 
anuncios de fantasía (colores, caracteres especiales, etc.). 

También podrá modificarse la línea 69 sin tocar demasiado el 
programa, de tal manera que la visualización de una P en tamaño 
grande se realice con letras P, y lo mismo para las otras letras. 
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ANUNCIO PUBLICITARIO (2) 
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Anomalía 


Modalidad: FAST. 

Dificultad de programación: difícil. 
Categoría del juego: solitario. 
Dificultad del juego: mediana. 


Se funda esencialmente en una buena capacidad de observación. Dos 
rejillas, de 25 casillas cada una, se dibujan en la pantalla. Símbolos 
idénticos se visualizan en diferentes sitios de las dos rejillas, aunque 
uno de los símbolos ha sido modificado en la rejilla de la parte 
derecha. El juego consiste en averiguar cuál es, introduciendo sus 
coordenadas en el orden línea-columna. 


El bucle 1 (20-24) imprime las cifras de localización de las rejillas. 
El bucle principal 1 (47-140) imprime los símbolos de las dos rejillas 
en un orden diferente. La línea 59 escoge el carácter que hay que 
imprimir. 

El subprograma (1090-1940) se ocupa de que la impresión se haga en 
un sitio libre (se recurre a él dos veces para las dos rejillas). 
Las líneas 120 y 139 cambian de forma aleatoria uno de los 
caracteres. 

Las coordenadas del punto que se ha probado son introducidas en las 
líneas 140 y 160, y el control se efectúa por las líneas 179 y 180. 
Las líneas 185 a 219 se ocupan de la visualización del resultado. 


Después de poner en marcha el programa por la instrucción RUN, se 
obtiene la visualización de las dos rejillas. Entonces se buscará, por 
comparación, cuál es el carácter que ha sido modificado (en la rejilla 
de la derecha). 

Después se introduce su número de línea y su número de columna, 
ambos seguidos de NEWLINE. 


Entonces el programa responderá BRAVO o HA PERDIDO. 


POSIBLES EXTENSIONES: Si se dispone de color, será posible utilizar símbolos gráficos 


de distintos colores, lo que simplificará la búsqueda. 

También puede considerarse utilizar dibujos más sofisticados, 
mejorar el control del resultado, admitir la respuesta buena en la 
rejilla de la derecha o en la de la izquierda, introducir un 
cronometraje, etc. 
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ANOMALÍA 
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Varios en uno 


Modalidad: SLOW o FAST. 

Dificultad de programación: difícil. 

Categoría del juego: para dos jugadores. 
Dificultad del juego: variable, según su utilización. 


En realidad, con este programa pueden realizarse varios juegos; se 
comportará como un lápiz electrónico, permitiendo registrar los 
símbolos 0 o X en cualquier lugar de la pantalla del televisor. 
Podrá utilizarse, por ejemplo, para el juego de pulgas (gana el 
primero que consigue una alineación de 5 peones idénticos), para un 
GO (se recuadran los peones adversarios) o para cualquier otro 
juego, según la imaginación de cada uno. 


El campo de juego está delimitado por 4 símbolos, situados por la 
línea 10. 

La línea 35 efectúa el cambio de jugador. 

El jugador que tiene el turno ve el símbolo que ha escogido (0 o X) 
situarse en el límite del cuadro (líneas 69 y 70). 

Las líneas 199 y 119 permiten, a los dos jugadores, desplazar el 
símbolo sobre el campo. 

Las líneas 120 a 140 controlan, si es posible, el desplazamiento 
(casilla libre y no pasarse de los límites). 

La línea 205 permite escribir en una casilla libre. 


RUN provoca la visualización de los límites del campo de juego y del 
número del jugador, así como los símbolos correspondientes (0 o X), 
que deberán desplazarse en la pantalla con la ayuda de las 4 teclas de 
dirección (5, 6, 7, 8). 

No se puede ir a una casilla que ya esté ocupada, y será necesario 
Pulsar la tecla Q para registrar el símbolo propio en una casilla que 
esté disponible. 

Tan pronto como se haya hecho, aparecerá el símbolo del segundo 
jugador en la columna de la izquierda, casi en el medio, y el jugador 
actuará de la misma forma que su adversario. 

Para salir del programa bastará con pulsar BREAK. 


POSIBLES EXTENSIONES: Podrá utilizarse toda la pantalla como campo de juego y 


realizar controles en función de los distintos juegos que quieran 
practicarse: control de alineación de 5 piezas, para el juego de la 
Pulga, control del número de piezas capturadas para el GO, etc. 
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VARIOS EN UNO 


PROGRAMA ZX 81 


10 PRINT “P 
20 PRINT AT CODE * 
32 LET YENoT P 


es Pause e 
90 LET 


Ad 
2X + (INKEYS=" 
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NOT y PX" añ 


ud ” 
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PROGRAMA ZX SPECTRUM 
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3" AND Y<1 
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0" THEN 
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Recorrido del caballo 


REFERENCIAS: Modalidad: SLOW. 
Dificultad de programación: difícil. 
Categoría del juego: de reflexión. 
Dificultad del juego: difícil. 


EL JUEGO: Se presenta aquí como un juego completamente de azar, aunque en 

realidad proviene de un problema bastante difícil de resolver: cómo 
desplazar un caballo en un tablero de ajedrez de forma que pase una 
sola vez por cada una de las 64 casillas del tablero. 
El caballo se desplaza siguiendo las reglas comúnmente admitidas en 
el ajedrez, y su posición de salida está definida por el jugador; por el 
contrario, sus desplazamientos se efectúan al azar. ¿Logrará recorrer 
las 64 casillas? 


EL PROGRAMA: Las líneas 15 y 24 definen, en dos variables alfanuméricas A$ y B$, 
los distintos desplazamientos posibles; los dos bucles intercalados 
1 (25-45) y J (30-49) dibujan el campo de juego. 

Las coordenzdas de la casilla de salida se introducen en las líneas 50 y 
55 (línea y después columna). 

La línea 66 imprime el número de la jugada. 

La línea 144 permite la tirada al azar de un desplazamiento del 
caballo. 

El bucle Z (145-179) busca si este desplazamiento es posible; si no lo 
es, se probarán todos los otros (siempre en el mismo orden). 
Las líneas 146 y 147 efectúan el desplazamiento. 

La línea 148 controla que no se salga del campo de juego. 

Las líneas 159 y 169 bifurcan a la línea 200, si la jugada es válida. 
La línea 180 gestiona el final de la partida (caballo bloqueado) y 
visualiza la puntuación. 

Las líneas 206, 219 y 220 realizan el golpe e incrementan la 
puntuación. 


PARA JUGAR: Se pone en marcha el programa por la orden RUN. 

Se visualiza el campo de juego; se escoge entonces la posición de 
salida, tecleando primero un número de línea (entre 1 y 8), seguido 
de NEWLINE, y después un número de columna, seguido de 
NEWLINE. 

El juego empieza inmediatamente y se desarrolla de forma comple- 
tamente automática hasta que el caballo quede bloqueado. Natural- 
mente, se puede parar en cualquier momento pulsando BREAK. 
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POSIBLES EXTENSIONES: Pueden imaginarse numerosas variantes sobre este tema, 
aunque sólo sea empezar por variar el tamaño de los tableros de 
ajedrez; también puede mejorarse considerablemente el grafismo o 
utilizar color. Pero lo más interesante es lograr definir un algoritmo, 
dando la o las soluciones del problema inicial. 


RECORRIDO DEL CABALLO 


PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 

LET Ss 18 Li 
Es ER 
FOR Te 235 
FOR Jai Era 
PRIN 35 PA ¿e 
NEXT y 1+1,0 E 
NEXT T 18'N 
INPUT 1 45 N 
INPUT y se 1 
LET Asel EJE: 
PRINT A 5U 
pá E Ar 1 
FOR +1,34J 
Ler 1d8 Í 
E 146 LE? 
E: 149 LEr 4 

149 15 9 R As OR pa 
5 seme | 108 IP sta 0.0 TA 
so 0 CODE | Ek Go To 208 
NE: 108 PRÍNT ELASH,15AT 
PRE TAT CODE “e NOT PL;S; bmp iS, PEER 53/18: BEE 

Beep” .3.8: sTÓP 
LET 198 e] 
LEFT Sadsson er E] LE $3 1: DEEP 0,2,13 
GOTO CODE “PI” 238 56 ra es de 


+ +1) 232 274 1548 
22 + + 141 265 
+ + 1324 3 2545 16 
Rd. . . 256 29 
» 12 19 40 35 44 17 42 
20 37 34 . 18 41 30 7 
11. 39359 3243. 
30. 10203. . 8 031 
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Pared de ladrillos 


REFERENCIAS: 


EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 


Modalidad: SLOW. 

Dificultad de programación: difícil. 

Categoría del juego: reflejos (para un jugador). 
Dificultad del juego: difícil. 


Si existe un juego que pueda presentarse como un gran clásico de los 
juegos de arcada para microordenador es, sin duda alguna, la pared 
de ladrillos (en inglés BREAKOUT). 

Aquí se ofrece una versión 1K, aunque, sin embargo, ofrece buenos 
resultados: visualización de la puntuación al final de la partida, 
rebotes aleatorios, etc. 

La regla es muy elemental: se dispone de una raqueta que se desplaza 
horizontalmente para enviar una pelota (materializada por un punto) 
que derribará los ladrillos dibujados en la parte superior de la 
pantalla. 

El juego consiste en derribar el mayor número posible de ladrillos sin 
fallar con la pelota, lo que provocaría el final de la partida y la 
visualización de la puntuación. 


El bucle I (30-50) dibuja el campo de juego y los ladrillos. 

La línea 55 dibuja la raqueta, cuya posición se controla por la 
línea 69. 

Las líneas 85, 9 y 10 miran si se ha tocado la pared, los ladrillos o la 
raqueta. 

Los rebotes se administrarán, en consecuencia, con cálculos aleato- 
rios por las líneas 132 y 138 (el matiz gris empleado corresponde aquí 
al graphic shift H). 

La línea 64 visualiza la puntuación al final de la partida. 


El programa se pondrá en marcha por la instrucción RUN, lo que 
provoca la visualización del campo de juego, y después, muy 
rápidamente, el envío de la pelota. 

El jugador intentará desplazar su raqueta con la ayuda de las teclas 
de desplazamiento horizontal (5 y 8). 

Si, en un momento dado, la pelota no toca la raqueta, se visualizará 
la puntuación y la partida terminará. 

Se puede acabar en cualquier momento pulsando BREAK. 


POSIBLES EXTENSIONES: Puede considerarse ampliar el campo de juego, aumentar el 


número de ladrillos, prever varias pelotas, dibujar cada hilera de 
ladrillos de un color diferente, introducir efectos sonoros, etc. 
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Inspirándose en los juegos de arcada, también podrán introducirse 
pequeños obreros que reconstruirán el muro de ladrillos a medida 
que se vaya derribando. 


PARED DE LADRILLOS 


PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
S LET SaNOT PI S LET 5x0 
] 10 LET Y=5 
1] 29 LET 
39 FOR I=8 
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EL JUEGO: 


EL PROGRAMA: 


PARA JUGAR: 
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Othello 


Modalidad: SLOW o FAST. 

Dificultad de programación: difícil. 

Categoría del juego: juego de reflexión (para dos jugadores). 
Dificultad del juego: difícil. 


Convertido en un gran clásico de los juegos sobre microordenador, el 
juego OTHELLO o REVESINO mejora al gestionarse sobre 
ordenador con visualización, aunque aquí se practique con dos 
jugadores; el juego consiste esencialmente en dar la vuelta a los 
peones del adversario; esto puede parecer, a la larga, muy aburrido, 
sobre todo si se es un asiduo jugador. 

El principio consiste en que el jugador que posee las X debe, para 
poder jugar, rodear una o varias piezas del adversario en una o varias 
direcciones; si lo consigue, se dará entonces la vuelta a las O, que se 
convertirán en X (la vuelta podrá hacerse horizontal o verticalmente, 
o siguiendo las diagonales). 

El jugador que posea las O procederá de la misma manera, y así 
sucesivamente hasta que el tablero esté lleno o nadie pueda jugar 
más (si un jugador no puede dar la vuelta a los peones, perderá su 
turno). 


Como ha sido difícil poner el programa sobre 1K octeto, ha sido 
necesario sacrificar algo la presentación. 

El bucle P (11-26) dibuja el campo de juego y visualiza una X o 
una O, dependiendo del jugador que comienza. 

El bucle P (41-212) controla la validez de la jugada (¿está la casilla 
libre? : líneas 293 a 299), utilizando una parte del programa que se 
encuentra en las líneas 224 a 242 (se han cogido uno o varios 
enemigos en la línea 224 y eventual vuelta autorizada por la línea 
23: se vuelve a explorar en todas las direcciones si el rodeo es 
posible). 

La línea 41 define las 8 direcciones de exploración. 

Las líneas 56 y 59 calculan los desplazamientos que deben efectuarse 
para explorar estas 8 direcciones. 

Las líneas 66 y 209 realizan los desplazamientos. 

La línea 218 asegura el cambio de jugador cuando hay vuelta (se 
controla en la línea 215). 


Después de RUN, cada jugador introducirá por turnos las coordena- 
das (línea, NEWLINE, y después columna, NEWLINE) de la casilla 
que desea jugar; si se acepta la jugada, se dará la vuelta a los peones 
y se hará el cambio de jugador; si la jugada no es posible, se 
introducirá Y como primera coordenada, con el fin de realizar el 
cambio de jugador. 
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POSIBLES EXTENSIONES: 


colores, un tablero más aireado, etc. 
También podrá imaginarse un juego de máquina para el ZX. 


Nota: 


Ante todo, por supuesto, mejorar la visualización con 


Después de haber puesto en marcha el programa por RUN, será 


conveniente introducir las dimensiones del tablero (3, NEWLINE, 


04, 
OTHELLO 
PROGRAMA ZX 81 PROGRAMA ZX SPECTRUM 
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Anexo 


LA ORGANIZACIÓN DE LA MEMORIA LA ORGANIZACIÓN DE LA MEMORIA 
EN EL 2X 81 EN EL 2X SPECTRUM 
Rutinas USR 
== ramror -——] 
Rutinas USR Gestión de los GOSUB 
RAMTOP | D-FILE ———— 
Gestión de los GOSUB Pisa ordenadora 
ERAS.) e —— 
Pila ordenadora Reserva 
se —— STREND +——— 
Reserva Pila calculadora 
STREND | STKBOT H——— 
Pila calculadora Espacio «le trabajo 
STKBOT TA 
Líneas en entradas Datos de entrada 
+ espacio de trabajo 
E Ele ==) WORK Se] 
Líneas en entradas 
Variables RAM 
VARS 
utilizable ELINE 
Arctivo de Fe ==] 
visualización A RAM 
programa 
Programa VARS utilizable 
16509 porel 
T EE programa 
Variables del 
| de los diversos PROG 
sistema 
Pad Información 
de canal 
cy 
CHANS 
Microdrive 
23734 
Varinbles "Pf direcciones 
del sistema de los diversos 
apuntadores 
Memoria intermedia 233% 
de la impresora 
A 2096 
Archivo de 
atributos 
22528 
Archivo de 
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